Select Code to Download

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