Help for this page

Select Code to Download


  1. or download this
    use Devel::Peek;
$str = 'a string';
...
                 Dump($_);Dump(pos())}))/g;
print STDERR "OUT\n";
Dump($str);
  2. or download this
    __SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;