#!/usr/local/bin/perl -w

$term = $ARGV[0];
die unless ($term);

local $/="\n\n";

opendir DIR , "./" or die "Cannot open dir: $!";
@files = readdir(DIR);
close DIR;
for (@files){
    if (/\.txt/){
	$file = $_;
	open IN , "< $file" or die "Cannot open $file:$!";
	while (<IN>){
	    $parr = $_;
	    if ($parr =~ /$term/i){
		print "$file\n";
		print $parr;
	    }
	}
	close IN;
    }
}


__END__