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