my $bh   = $part->bodyhandle;
                print "MIME Type: $type\n";
                if (defined $bh) {
                    open(my $OUTFILE, ">", $bh->path) or die $!;
                    binmode($OUTFILE);
                    $bh->print(\$OUTFILE);
                    close($OUTFILE);
                } #End IF $bh defined