#!/usr/bin/perl -w
# grep through a website's HTML for a string.

use File::Find;

foreach my $term (@ARGV) {
        print "\n$term:\n";
        find ({wanted => \&each_file, 
               follow => 0, 
               term => "$term"}, 
               "/iputils/ns-home/docs");

}

sub each_file {
        my $filename = $File::Find::name;
        return if ((-d $filename) || (! -r $filename) ||   
            (! -T $filename));
        my $term = ${$_[0]}{term}; 
        open (FILE, "$filename");
        my $line = 0;
        while (<FILE>) {
                chomp;
                $line++;
                if ($_ =~ m/$term/) {
                        print "$filename line $line\n";
                }
        }
        close FILE;
}