or download this
$ perl -wMstrict -e 'BEGIN { package blah; *::x=sub{} } x'
$ perl -wMstrict -e 'BEGIN { *::x=sub{} } x'
...
Variable "$x" is not imported at -e line 1.
Global symbol "$x" requires explicit package name (did you forget to d
+eclare "my $x"?) at -e line 1.
Execution of -e aborted due to compilation errors.