while (my $line = <FILE>)
{
          if($line =~ /SQL/)
         {
    	       chomp($date = `date`);
    	       chomp ($errcode = $line);
    	       print ERR "$date - $errcode\n";
         }
}