Select Code to Download

    $ftp->put($sub_log)
        or ErrorOut("FTP Put Failed ", $ftp->message);
    $ftp->quit;
    print "\nEnd FTP debug output\n\n";
    print "FTP Put successful from server $ftp_server\n";