require 'cgi.pm'; $database_location="/home/sites/www.foo.net/web/test/data/upload.db"; $dir_location = "/home/sites/www.foo.net/web/test/"; sub diedebug { local($msg) = $_[0]; $msg =~ s/^nodie//; print "$msg
\n"; exit(); } %in = (); &ReadParse(%in); # Parse the data submitted by the user if (($in{'company_name'}) && ($in{'password'}) && ($in{'sub_dir'})) { $dir= $in{'sub_dir'}; mkdir("$dir_location$dir", 0777) || &diedebug("

DIRECTORY CREATION ERROR
You are trying to create a directory that already exists! Go back and use a different name for this particular directory.
ERROR ~ DIRECTORY NOT CREATED!

");