die "$usage" if not @ARGV;

if (not -r $file) { die "Cannot read $file\n"; }

print "$pattern not found in $file\n" if not $found;