$_=666;
package Foo;
print $_;      # -> 666