#!/bin/perl
#	gh pattern
# This searches for the pattern in the files in ~/misc/`hostname`/HdrFiles,
# which should have been created by FindHdrFiles.
#
$F='<' . $ENV{"HOME"} . "/a.list";
#printf "F=`$F'\n";
open(FL,$F) || die "Can't read `$F'\n";
for (@ARGV) {
	printf "$_:\n";
	system "cat $F | xargs ngp $_ 2>/dev/null";
}