Select Code to Download

$ ./1.test.1.pl 
title is 1.test.
...
Killed by signal 2.

$

  # upload images
  my $image_dir = $vars{"image_dir"};
  say "image dir is $image_dir";
  my $return2 = createDir( $image_dir, $sftp );
  say "return2 is $return2";

sub createDir {
  use 5.011;
  use Net::SFTP::Foreign;
...
    or handleDirCreateError( @_, $sftp->error );
  return $success;
}

sub handleDirCreateError {
  use 5.011;
  use Net::SFTP::Foreign;
...
  }
  return "execution shouldn't get here";
}

  if ( fork() == 0 ) {

    # arm the alarm clock
...
    say "trial is $trial";
    exit(0);
  }

debug1: fd 0 clearing O_NONBLOCK
debug1: fd 1 clearing O_NONBLOCK