Help for this page

Select Code to Download

Select or download this

package Mr::Rogers;
use strict;
my $r=__PACKAGE__;
__PACAKGE__->{height}=200; #this is ok under strict for some reason
$r->{age}=20; #this will die under strict;