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