Select Code to Download

package MyPackage;
use strict;
...
sub STORE { $_[0][0]{$_[1]} = ucfirst($_[2]); }

1;

#!/usr/bin/perl -w
use strict;
...
my $p = MyPackage->new();
$$p{Hello} = "world";
print $p->to_string, "\n";