Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

use strict;
...

my $objb=DemoB->new();
$objb->hello(); # writes "Shalom"

Select or download this

sub new
{
    my $class=shift;
...
    $self->{'x'}='y';
    return $self;
}