Help for this page
]$ perl my $h_ref = {}; ... 135099932 80D761C
__SIG__ use B; printf "You are here %08x\n", unpack "L!", unpack "P4", pack "L!", B::svref_2object(sub{})->OUTSIDE;