BEGIN { # yes the indenting is off, deal with it
#add the words to check here:
@evilwords = qw(
+CONTANTS
anyways
arbitary
custemer
dependan
existance
existant
+fomr
+invoce
paramater
+puchase
+puhs
+sekf
+sucess
varsion
-fomr
);
$testcount = scalar(@Support::Files::testitems);