#!/usr/bin/perl -w
$user_name = "test_dir";
mkdir ("$user_name",0777) || die "cannot mkdir : $!";
print "Content-type: text/html\n\n";
print "did it make the directory?  \n";