my @parts = $entity->parts();
foreach my $part (@parts) {
    my $head = $part->head();
    print "Effective: " . $part->effective_type() . "\n";
    print "Content-Type from Header: " . $head->get('Content-Type') . "\n";
}