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