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