Select Code to Download

$ perl -le'print __PACKAGE__'
main

$ perl -le'print CORE::__PACKAGE__'
main

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

$ perl -wle'print prototype "CORE::__PACKAGE__"'
Can't find an opnumber for "__PACKAGE__" at -e line 1.