my $LastLine='';
while(my $Line=<$logfh>)
{
  if(index($Line,$Variable)>-1)
  {
    print "$Line$LastLine<br>\n";
    push(@ErrorList,$LastLine,$Line);
  }
  $LastLine=$Line;
}