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