Help for this page
my @args = ("$opt_local_dir/$do_file"); push @args, $remote_file, copy_perms => 0; push @args, copy_time => 0; eval { $ftp->put(@args); 1 } or warn "put failed: ".($@//"unknown error");