Select Code to Download

use strict;
use warnings;
...
print 'stringify  $ref: ', "$ref",           "\n";
print 'refaddr    $ref: ', refaddr($ref),    "\n";
print 'refaddr_pp $ref: ', refaddr_pp($ref),    "\n\n";

stringify  $obj: Some Object
refaddr    $obj: 155892768
...
stringify  $ref: HASH(0x94abd10)
refaddr    $ref: 155893008
refaddr_pp $ref: 155893008