$ perl -lwe 'main->{x} = 1; print $main{x}'
1