File Perl

!#c:\perl\bin
print "Content-type: text/html\n\n";
print "Creating Directory ...";
mkdir("c:/newdir") || die "Directory could not be created ...";