#!perl
use strict;
use MP3::Tag;
use MP3::Info;
use Time::Piece;
use Data::Dump 'pp';

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

my $info = get_mp3tag($file);
pp $info;

my $mp3 = MP3::Tag->new($file);
$mp3->album_set($date);
$mp3->genre_set('Audiobook');
$mp3->update_tags();
 
$info = get_mp3tag($file);
pp $info;
[download]