$ftp->put(\*FILE, $file) or die .........