in reply to Carving up MIME email on STDIN
I was digging around the Super Search and found this node which would suggest that the following would work:
## snip foreach my $i ( 0 .. $#parts ) { ## print the mime type print "Part $i ". $parts[$i]->mime_type . "\n\n"; ## print the name print "Name $i ". $parts[$i]->head->mime_attr('content-disposition.f +ilename'); } ## snip
keep in mind that this code is UNTESTED.
-phill
In Section
Seekers of Perl Wisdom