my @last_lines;
while (<>) {
   if ($_ eq "D : Error Occurred\n") {
      print @last_lines,$_;
      last;
   }
   push @last_lines,$_; 
   shift @last_lines if @last_lines > 4;
}