http://qs1969.pair.com?node_id=896333


in reply to Re^2: I need help about MP3::Tag and perl script.
in thread I need help about MP3::Tag and perl script.

not tested, just quick look into doc: 
$id3v1 = exists $mp3->{ID3v1}
 ? $mp3->{ID3v1}
 : $mp3->new_tag("ID3v1")

[download]

In Section Seekers of Perl Wisdom