sub file_in_out {
@ARGV == 3 || die "usage: $0 PATTERN LOGNAME DATE \n";
my ( $PAT, $LOG, $DATE ) = @ARGV;

open (my $HAN, $LOG) || die "Cannot open '$LOG' because: $!";
#print "ENTRIES FOUND FOR PATTERN = $PAT, LOGFILE=$LOG, DATE=$DATE.................\n";
while ( <$HAN>) {
	next unless /$DATE/;
	print
	  "\n",
	  "-----------------------------------------------------------------------------------------------------------------------\n",
	  $_ 
	      if /$PAT/;
		  }