Help for this page
open(BADWORDS,"$badword_file");
open(BADWORDS,"<","$badword_file") or die "Unable to open badword_ +file: $! \n";