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

. . .

##</code><code>##

CSP=HASH(0x800b1e060)

##</code><code>##

print map { "Key: $_ has Value:$self{$_}\n" } keys $self;

##</code><code>##

  Global symbol "%self" requires explicit package name (did you forget to declare "my %self"?) at /root/bin/rcsp/blib/lib/CSP.pm line 861