my $parser   = MIME::Parser->new( );
        my $entity   = $parser->parse_data(join '', @{$server->get($i)});
        my $numParts = $entity->parts;
        my @parts    = $entity->parts;
        if ($numParts > 0) {
            foreach my $part (@parts) {
                my $type = $part->mime_type;
                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
            } # End For Each Part
        } # End If Num of Parts > 0