$ftp->put (\*FILE) or die "$server: cannot put $file: " . $ftp->message;