Select Code to Download

package Foo;
use strict;
...
my $c = Foo->new(name => 'Aragorn', alias => 'Strider', race => 'Human
+');
print "name: $c->{name}\n"; 
print "job:  $c->{job}\n";

$ perl test.pl 
name: Aragorn
Attempt to access disallowed key 'job' in a restricted hash at test.pl
+ line 26.