## 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
[download]

keep in mind that this code is UNTESTED.

-phill