my $bh   = $part->bodyhandle;
print "MIME Type: $type\n";