Select Code to Download

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

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