Select Code to Download

  #load html file to server
  my $server_dir = $vars{"server_dir"};
  say "server dir is $server_dir";
...
  say "return3 is $return3";
  $sftp->setcwd( $vars{remote_dir} ) or warn "setcwd3 failed $!\n";
  print $sftp->cwd(), "\n";

sub createDir {
  use 5.011;
  use Net::SFTP::Foreign;
...
  my $success = $sftp->mkdir($dirName) or return $!;
  return $success;
}

Put file to server(y/n)?: y
server dir is perlmonks
...
return2 is Directory pmimage already exists!
return3 is 1
/pmimage/1.timeout6