Select Code to Download

sub search {
  my ($fh, $cmp) = @_;
...
    else                  { $hi = $mid   }
  }
}

  open DICT, "<", "/usr/dict/Web2" or die...;
  if (search(\*DICT, sub { lc $_ cmp "foo" })) {
...
      print;
    }
  }