Select Code to Download

my $bh   = $part->bodyhandle;
print "MIME Type: $type\n";

my $bh   = $part->bodyhandle;
                print "MIME Type: $type\n";
...
                    $bh->print(\$OUTFILE);
                    close($OUTFILE);
                } #End IF $bh defined