Help for this page
{ package Foo; ... &$crPrintCurrentName(); $oFoo->{name} = 'Boy George'; &$crPrintCurrentName();
George Alan O'Dowd Boy George