open DICT, "<", "/usr/dict/Web2" or die...;
  if (search(\*DICT, sub { lc $_ cmp "foo" })) {
    # DICT is now positioned at the first word beginning with 'foo'
    while (<DICT>) {
      last unless /^foo/i;
      print;
    }
  }