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

open FILE, ">mp3.txt" or die $!;
my $file = 'file.mp3';
my $mp3  = MP3::Tag->new($file);
$mp3->get_tags();
print FILE Dumper($mp3);