#!/usr/bin/perl
#
$start=shift;
$pattern=shift;
open(FILE,"$start");
while (<FILE>){
  if (/$pattern/) {
    print;
  }
}