sub write_tag { my $self = shift; my %args = @_; my $mp3 = MP3::Mplib->new($args{mp3}) || return "Unable to update $args{mp3}: $!"; my @mp3ary = split('/', $args{mp3}); $mp3->set_v1tag({ year => $args{year} , artist => $args{artist}, album => $args{album} , genre => $args{genre} , title => pop @mp3ary , }, &ISO_8859_1); my $v1tag = $mp3->get_v1tag; return $v1tag; }