Select Code to Download

                        $progress = 2;
            if( $progress == 2){
...
                    if( $progress == 0){last}
                }
            }

sub sftp{
    $|++;
...
    }
    END:
}

sub sftp{
    $|++;
...
        } # sleep if $go == 0
    }
}

            $sftp->put("$waylcl\\waytemp", "$wayrmt/waytemp");