>perl -wMstrict -le
"{ package Foo;
   sub my_pkg { print 'works pre-5.14: ', __PACKAGE__; }
   }
 ;;
 package Bar {
   sub my_pkg { print 'post-5.14: ', __PACKAGE__; }
   }
 Foo::my_pkg();
 Bar::my_pkg();
 print __PACKAGE__;
"
works pre-5.14: Foo
post-5.14: Bar
main