use MP3::Tag;

foreach $filename (@ARGV)
{
	print "$filename\n";

	$mp3 = MP3::Tag->new($filename);

	# read an existing tag
	$mp3->get_tags();
	  
	if (exists $mp3->{ID3v2})
	{
		$id3v2 = $mp3->{ID3v2};
		$id3v2->remove_tag();
	}
	
	if (exists $mp3->{ID3v1})
	{
		$id3v1 = $mp3->{ID3v1};
		$id3v1->remove_tag();
	}
}