use strict;
use warnings;
use MP3::Info;
use Time::Piece;

my $date = localtime->strftime('%Y/%m/%d');  
my $file = 'file.mp3';

my $tag->{ALBUM} = $date; # Change album to today;s date
set_mp3tag($file, $tag);
$tag->{GENRE} = "Audiobook"; # Change genre to Audiobook
set_mp3tag($file, $tag);
my $info = get_mp3info($file);
printf "$file length is %d:%d\n", $info->{MM}, $info->{SS};

##</code><code>##

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);