[foo@bar dev]$ perl -w nam.pl nam.pl print
INFO: print found in file nam.pl, next line is:
  print $nextLine;
[foo@bar dev]$ perl -w nam.pl nam.pl whoosat
INFO: whoosat not found in file nam.pl.