#!c:/Perl/bin/Perl.exe

use CGI;
print "Content-type: text/html\n\n";
$query = new CGI;

&testform();

sub testform{
	$Name = $query->param("Name");
	$Email = $query->param("Email");
	if(($Name !~ /\w/) || ($Email !~ /^([a-zA-Z0-9_\.\-])+\@(([a-zA-Z0-9\-])+\.)+([a-zA-Z0-9]{2,4})+$/)){
		#### SEND BACK TO HTML FOR AND FILL IN WITH DATA ALREADY ENTERED ####
	}
	else {
		print "Name => $Name<br>";
		print "Email => $Email<br>";
	}

}