Select Code to Download

printf 'Certification is %s on %02d % 02d %d<p><HR>',
    $certification, $month, $day, $year;

for (my $i=1; $i<=$lines; $i++) {
    my $certification = shift(@data);
...
    my $year = shift(@data);
    # printf ....
}

while(@data){
  ...
}

use Date::Calc qw/Month_to_Text/;
while(@data){
...
  my $month = Month_to_Text($number);
  ...
}