my $hello = HelloWorld->new;
$hello->{text} = "Hello World!\n";
$hello->greet;

package HelloWorld;
sub new { bless {} }
sub greet { print shift->{text} }