Help for this page

Select Code to Download

Select or download this

sub new {
    my ($class) = @_;
...
    bless $self, $class;
    return $self;
}