7 die "$0 file error_msg\n";
10 my ($prog, $file,$msg) = (@ARGV);
12 open(FILE,$file) || die "Error opening file: $file\n";
15 die "File $prog not present\n";
20 print "running: $prog $line\n";
21 my $result = `$prog $line`;
22 if ($result =~ /$msg/) {
24 print "\t ** $line **\n";