Select Code to Download

#!d:\perl\bin\perl.exe 

...
my $obj = Hello->new( sample_data => 'hello world',
                             more_data   => 'blah blah blah' );
$obj->sample_method();

#!d:\perl\bin\perl.exe 

...
    print $self->{sample_data};
}
1;