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