Select Code to Download

--_000_200907060005UAA14932pisas291mscom88clm_
Content-Type: text/plain; charset="iso-8859-1"
...
--_000_200907060005UAA14932pisas291mscom88clm_--

--_004_38D25DCAD7370B4FACA079E2FAA2C690B02CB5NYWEXMB24msadmsco_--

#!/usr/bin/perl

...
my @parts = $parsed->parts; # These will be Email::MIME objects, too.
my $p = $parts[1]->content_type;
print $p;

$ ./grab.pl mime2
Can't call method "content_type" on an undefined value at ./grab.pl li
+ne 16.
$