Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
print"Gimmie a filename to examine: ";
...
        print "Found $_ in $filename"
        }
close FILEDESC;