perldoc CGI

<form action='script.pl' method='post'>
NAME: <input type='text' name='name' size'8' maxlength='8' />
<br />
<input type='submit' name='button' value='Folder Name' />
</form>

#! /usr/lib/perl
 
use CGI;
use strict;
 
my $obj = new CGI;
 
my $name = $obj->param ( 'name' );
 
my $base = './docs/folders/';
 
print "Content-type: text/html\n\n"; 
 
if ( $name eq '' )
{
	print "the directory name was not entered!\n";
}
elsif ( $name !~ m/^[a-z0-9]{1,8}$/i )
{
	print "the directory name was not valid!\n";	
}
else
{
	if ( -e $base . $name )
	{
		print "can not create directory, directory already exists!\n";
	}
	elsif ( ! mkdir ( $base . $name, 0777 ) )
	{
		print "can not create directory\n";
	}
	else
	{
		print "new directory created\n";
	}
}
 
exit(0);