Select Code to Download

$ftp->put($my_file)
  or die "Couldn't upload file";

$ftp->put($my_file)
  or {
      log("Couldn't upload $my_file");
...
  }

log("$my_file uploaded");