Select Code to Download

#!/usr/bin/perl

...
    return $parts[0] if $which =~ /text/;
    return $parts[1] if $which =~ /html/;
}

Content-Type: multipart/alternative;
        boundary="_000_200907060005UAA14932pisas291mscom88clm_"
...
--_000_200907060005UAA14932pisas291mscom88clm_--

--_004_38D25DCAD7370B4FACA079E2FAA2C690B02CB5NYWEXMB24msadmsco_--

$ ./grab.pl mime4 text
line1
...
<p>blah2</p>

$