use MP3::Tag;
use warnings;
use strict;
use Data::Dumper;

my $file = shift;
my $mp3  = MP3::Tag->new($file);
$mp3->get_tags();
print Dumper($mp3);