Select Code to Download

$ perl -Mstrict -wle '
> my %x; sub main () { \%x };
> main->{x} = 1;
> print $x{x}'
1