Select Code to Download

#!/usr/bin/perl

...
    close(F);
}
untie %Index;

#!/usr/bin/perl

...
        print ">";
}
untie(%Index);

here's a file that contains a bunch of random
keywords on many different lines that we can use for the sake of examp
+le.

here's another file that contains even more random text
for the sake of example.  I hope this helps solve the problem
presented by tenfourty.

darkstar:~/tmp>./mkindex.pl 
darkstar:~/tmp>./search.pl 
...
text found in:
/home/maverick/tmp/file2.txt
>