Select Code to Download

 my $until_no_upfile = 
      "!ftp_file_exists ( '!!FTP_HOST!!', '$ftp::user', '$ftp::pass', 
+'$ftp::dir', '$script::upfile_name' );";
...

  host_cycle($until_no_upfile, $then_upload);

sub host_cycle {
    my ($_until,$_then)=@_;
...


}