use File::Extract
my $x = File::Extract->new();
print $x->extract('./file.mp3')->text;