Select Code to Download

--Apple-Mail-30--196590585
Content-Disposition: inline;
    filename=moriyama1.gif
...
AgAAACH5BAA [etc...]  

--Apple-Mail-30--196590585--

foreach my $part (@parts) {
        next unless defined $part->head;
...
    $thing->{'text'}     = \@text;
    return($thing);
}