perl -Mstrict -Wle 'BEGIN { *main::x = \$main::x; } $x = 42;'