Me again (guess I need to sign up). The VB and Perl scripts were run against each other in the same office and VB clearly spanked me. My code is listed below, but (I think) it is pretty straight forward. I was told that the VB was running as a system process or something and that that gave it a higher priority and larger bottleneck or something. (?). net::ftp mentions something about increasing write and/or read buffer size. Would that improve my speed?

sub upload_process{
        $ftp = Net::FTP->new("$remote_server") or &error;
        if($ftp->login("$FORM{username}", "$FORM{password}")){
            for(@list){
                if($ftp->ok()) {
                    $ftp->put("N:/$local_home$_", "$start_folder$_");
                }else{
                    print $ftp->code()." ".$ftp->message()."\n";
                    $ftp->quit;
                }
             }
        }
        $ftp->quit;        
}
[download]