$ perl -e " use strict; BEGIN{eval q{use strict; $foo = 1;};warn$@;} no strict; $bar = 2; "
Global symbol "$foo" requires explicit package name at (eval 5) line 1.