sub createDir {
  use 5.011;
  use Net::SFTP::Foreign;
  my ( $dirName, $sftp ) = @_;

  my $success = $sftp->mkdir($dirName)
    or handleDirCreateError( @_, $sftp->error );
  return $success;
}

sub handleDirCreateError {
  use 5.011;
  use Net::SFTP::Foreign;
  use Net::SFTP::Foreign::Constants qw(:error);

  my ( $dirName, $sftp, $error ) = @_;
  say "parameter array is @_";
  say "error is $error";
  return $error;
}