Help for this page
$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";