use Net::FTP;
my $ftp;
$ftp = Net::FTP->new($ftp_server, Debug => 1)or die "Cannot connect";
$ftp->login($login,$password)or die $ftp->message;
$ftp->pwd or die $ftp->message;
$ftp->cwd($upload_to_dir) or die $ftp->message;
warn "Failed to set binary mode\n" unless $ftp->binary();
print "Uploading $input_file...<br>";
$ftp->put ( $input_file, $new_file_name ) or die "did not upload";
$ftp->quit;