Help for this page

Select Code to Download


  1. or download this
    sub display {
        my $self = shift;
    ...
        my $adate     = $self->{adate};
        # etc.
    }