# Check for blocked text open (BLOCK,"/home/cowpensv/public_html/cgi-bin/block.txt")|| die "Cant Open block.txt"; @blocked = ; close (BLOCK); if ( $FORM{'comments'} =~ @blocked ) { print "Content-type: text/html\n\n"; print "Blocked\n"; print "

BLOCKED!!

\n"; print "\n\n"; exit;}