source: flacrip/trunk/id3dump @ 40

#!/usr/bin/perl -w
use strict;

# prints ID3 tag info from an MP3 file in Vorbis tag format to STDOUT

use MP3::Tag;

my $audio_file = shift or die "Usage: $0 <mp3-file>\n";
my $mp3 = MP3::Tag->new($audio_file);

my %key_for = (
    ALBUM       => 'album',
    ARTIST      => 'artist',
    DATE        => 'year',
    TITLE       => 'title',
    TRACKNUMBER => 'track',
);

my $info = $mp3->autoinfo;

for my $vorbis_tag (sort keys %key_for) {
    print "$vorbis_tag=" . ($info->{$key_for{$vorbis_tag}} || '') . "\n";
}