$ftp->put($file) or die "Could not transfer $file to FTP server: $@\n";