use MP3::Tag;
my $mp3 = MP3::Tag->new("E:/My Music/File.mp3") or die “Can’t open File”;

# Get the tags from the MP3
$mp3->get_tags;

# Get the ID3 V2 tag where the picture is saved

$id3v2 = $mp3->{ID3v2};

# Get the APIC frame from the Tag (The Image) which
# returns a hash ref

$Pic = $id3v2->get_frame("APIC"); # returns

print "Content-type: image/jpeg\n\n";

print $Pic->{_Data};