$Name=param('Name');
$Organization=param('Organization');
$Email=param('Email');
$Phone=param('Phone'); 
$Message=param('Message');
$Number=param('Spam Number');
$Spam=param('Spam');
$Robot=param('Robot');
$Result=param('Result');




if
($Name eq ""||$Organization eq ""||$Email eq ""||$Phone eq ""||$Message eq "")

{
print "The FORM is INCOMPLETE. All Fields Marked With An * Are Required";

exit;
}

if 
($Number ne "$Spam") {

print "You Entered An Incorrect Anti Spam Number. Please try again.";

exit;
}
if ($Result ne "5") {
print "You Entered An Incorrect Answer. Please try again.";

exit;
}


if ($Robot ne "1") {
print "The Form Is Not Complete. Please try again.";
exit
}

##</code><code>##

 

@forbidden =("porn","sex");
foreach $forbidden (@forbidden) {
if ($Message =~/$forbidden/) {
print "Bad Language Not Permitted";]
exit;}