open FILE, '<', $file or die "open $file $!";
binmode FILE, 'encoding(cp850)' or die $!;
$ftp->put (\*FILE) or die "$server: cannot put $file: " . $ftp->message;

$ftp->put(local,server);