Select Code to Download

 ### Dump the ENCODED body data to a filehandle:
 $body->print(\*STDOUT);
...

 ### Slurp all the UNENCODED data in, and put it in an array of lines:
 @lines = $body->as_lines;

    for $part( @parts ) {
        my $type = $part->mime_type;
...
            close( $OUTFILE );
        }
    }