if ( $_ =~ /$(--|;|DELETE\s|DROP\s|UPDATE\s|EXEC\s|INSERT\s|CREATE\s|delete\s|drop\s|update\s|exec\s|insert\s|create\s)/ ) {
	  
	print "There is a possible injection attack here"; ## Security function here
	die;
      }