#!/usr/bin/perl
# w5.9.pl find a string in a file
# Usage: time w5.9.pl "king" /home/horn/marlowe/e2/act1.html

require("mylib.pl");                                            
($file = $ARGV[1]) or die("Enter a search string and file name.\n");

@lines = get_lines($file);

foreach (@lines){                                                        
   if (m/$ARGV[0]/){                                                     
      print ("$_");                                                      
   }
}
