Select Code to Download

my $p = MyPackage->new(); 
$$p{Hello} = "world"; 
print $p->to_string, "\n";

tie my %h, MyPackage;
$h{Hello} = "world";
# use tied to call object methods
print tied(%h)->to_string, "\n"; # -> 'Hello World'