#!/usr/bin/perl -w

use strict;

my $dir = "doug";

mkdir($dir, 0777) or die "Couldn't make directory $dir: $!; aborting";