if (exists $mp3->{ID3v2}) { 
# read some information from the tag 
($name, $info) = $mp3->{ID3v2}->get_frame("TIT2"); 
# delete the tag completely from the file 
$mp3->{ID3v2}->remove_tag; 
} 
else { 
# create a new tag $mp3->new_tag("ID3v2"); 
$mp3->{ID3v2}->add_frame("TALB", 0, "Album title"); 
$mp3->write_tag;
}

$mp3->close();