Simon Huggins wrote: > foreach my $subent ($entity->parts) { > if ($subent->effective_type eq "message/rfc822") { > $subent->print(\*STDOUT); > } > } Looks like it will output more than one part of that type if available. Is that dangerous? If so, exit after print would do. pi