Select Code to Download

use strict;
use warnings;
...
set_mp3tag($file, $tag);
my $info = get_mp3info($file);
printf "$file length is %d:%d\n", $info->{MM}, $info->{SS};

use MP3::Tag;
use warnings;
...
my $mp3  = MP3::Tag->new($file);
$mp3->get_tags();
print FILE Dumper($mp3);