#! /usr/bin/perl
use strict;
use CGI qw(:standard);
use Fcntl qw(:DEFAULT :flock);

system(`mkdir /cgi-bin/NEW`);