Create ftp_upload.perl