create-new-dir.pl

#! /usr/bin/perl

# Uses file existence operator to test whether specified directory already exists.
# Directory name input mechanism is not assumed; trivial example provided.
#
# Author: Jose Fernando Lopez Fernandez
# Date: 21-November-2018
#
# Note: "say" function requires "use v5.10" or higher

my $newDirectoryName = "New-Directory";

if (-e $newDirectoryName) {
    say "[Error]: Directory Already Exists.";
} else {
    say "Creating new directory: $newDirectoryName";

    my $status = mkdir($newDirectoryName);

    say "[Status]: $status";
}