Select Code to Download

$obj->Name = "My Name";
print $o->Name, "\n"; # "My Name, post processed".

package magic;

...

$obj->name = "My right foot";
print $obj->name, "\n";