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