The package I use for simple tag reading is MP3::Tag, available on CPAN with more information here.
The following example shows how easy it is to retrieve tags from an MP3 file.
use MP3::Tag; my $file = MP3::Tag->new($filename); my ($title, $track, $artist, $album, $comment, $year, $genre) = $file->autoinfo(); print "Title: [$title]\n"; print "Artist: [$artist]\n"; print "Album: [$album]\n"; print "Track: [$track]\n"; print "Year: [$year]\n"; print "Genre: [$genre]\n"; print "Comment: [$comment]\n\n";
