#!/usr/bin/env perl

mkdir "New Files";

open O, ">New Files/NewTextFile.txt" or die "Can't: $!";

print O "Hi there\n";