perl -wMstrict -e "BEGIN{package bar; *bar::x=\$a} package bar; $x++"   # not OK
perl -wMstrict -e "BEGIN{package foo; *bar::x=\$a} package bar; $x++"   # OK