open TR, "unix2dos $File |" or die $!; # Or FQ path
$ftp->binary(); # We translate, not the server.
$ftp->put(TR,$File); # must give remote name.