sub genHTMLTableRow
  {
    my $self = shift;
    my $args = shift;
    my $e = shift;
    my $ser = $e->{serial};
    my $pem = $ser.'.html';

. . .