require "look.pl";
open(DICT,"/usr/dict/words") || die "Illiterate computer";
&look(*DICT, "camel", 1, 1);
while (<DICT>) {
   last unless /^camel/i;
   print;
}