my $req = bool_to_regexp($ARGV[0]);
print "using $req ...\n";

open (FILE, "stuff") || die "$!";
while(<FILE>)
{
  if ($req)
  {
    print $_;
  }
}
close FILE;