use strict;
my $few = shift || 3;
while (<DATA>) { 
  if (/Update certificate/) {
    print $_;
    print scalar <DATA> for 1..$few;
  }
}