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