When the directory in the l_dest_file does not exists, the statement hangs.
Example: if { [ftp::Put $h_dest_ftp $l_bck_file $l_dest_file] == 1 } { ... }