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