sub handleDirCreateError {
  use 5.011;
  use Net::SFTP::Foreign;
  my ( $dirName, $sftp, $error ) = @_;
  say "parameter array is @_";
  if ( fork() == 0 ) {

    # arm the alarm clock
    alarm(10);
    say "alarm set for ten in process $$ and pinging google";
    # create a child process
    my $trial = system("ping www.google.com");
    say "trial is $trial";
    exit(0);
  }
  print "Bounce wireless(y/n)?: ";
  my $prompt1 = <STDIN>;
  chomp $prompt1;

  if ( $prompt1 eq ( "y" | "Y" ) ) {
    if ( fork() == 0 ) {

      # arm the alarm clock
      alarm(35);
      say "alarm set for 35 in process $$ and restarting network";

      # create a child process

      my $trial2 = system("sudo service network-manager restart");
      say "trial2 is $trial2";
      sleep 30;
      say "sleeping 30";
      exit(0);
    }
  }
  print "Do you think you're ready now(y/n)?: ";
  my $prompt2 = <STDIN>;
  chomp $prompt2;

  if ( $prompt2 eq ( "y" | "Y" ) ) {

    my $return2 = createDir( $dirName, $sftp );
    say "return2 is $return2";
  }

  else {
    say "$error was too much this time: ceasing execution";
    die;
  }
  return "execution shouldn't get here";
}