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