Help for this page

Select Code to Download

Select or download this

sub new {
    my $class_name = shift;
...

    bless \%self,$class_name ;
}