$ perl -wle'BEGIN { *CORE::GLOBAL::__PACKAGE__ = sub () { "abc" }; } print __PACKAGE__'
abc