$ftp=put(\*STDIN, $remote_file) || die "Upload from STDIN to $remote_file failed\n";