use strict;
use warnings;

my $obj = bless {};

$obj->initMembers ();
$obj->print ();


sub initMembers {
    my ($self) = @_;

    $self->{hello} = "Hello World.\n";
}


sub print {
    my ($self) = @_;

    print $self->{hello};
}