my $s = sub {
  eval qq/package @{[__PACKAGE]};
    print "PACKAGE is ",__PACKAGE__,"\n";/;
  die $@ if $@; };

##</code><code>##

__SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;