use MP3::Tag;

$mp3 = MP3::Tag->new($ARGV[0]);

$mp3->get_tags();
$id3v2 = $mp3->{ID3v2} if exists $mp3->{ID3v2};

$id3v2->remove_frame("APIC");
$id3v2->write_tag();

$mp3->close();