Select Code to Download

use Hash::Util qw[ lock_keys ];;

...
print $My::Space::freddy = 1234;;
Attempt to access disallowed key 'freddy' in a restricted hash at (eva
+l 18) line 1, <STDIN> line 10.