$ftp->put(\*TR,$File);

##</code><code>##

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.

##</code><code>##

open my($fh), $File or die $!;
$ftp->binary(); # We translate, not the server.
$ftp->put($fh,$File); # must give remote name.