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

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

log("$my_file uploaded");