Select Code to Download

$Name=param('Name');
...
print "The Form Is Not Complete. Please try again.";
exit
}

 

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