sub createDir {
  use 5.011;
  use Net::SFTP::Foreign;
  my ( $dirName, $sftp ) = @_;
  if ( $sftp->test_e($dirName)) {
    if (  $sftp->test_d($dirName)) {
      say "execution was here";
      return "Directory $dirName already exists!";
    }
    else {
      return "Can't create $dirName because there's a file in the way!";
    }
  }
  my $success = $sftp->mkdir($dirName) or return $!;
  return $success;
}