]$ perl
my $h_ref = {};
print 0+$h_ref,"\n";
print unpack('H*',pack('L',0+$h_ref)),"\n";

135099932
80D761C
##</code><code>##

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