Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl 
use strict;
my ($what,$file)= @ARGV;
...
close HANDLE;
scalar @match or print STDERR "$file is missing $what\n";
exit;