if ($outfile !~ /^(\w+)\z/) {die "Disallowed characters in filename: '$outfile'";}
else {open(OF, ">$outfile") or die "-------------- cannot open OF";}