Select Code to Download

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

refaddr    $obj: 149445664
refaddr_pp $obj: 149445664

refaddr    $ref: 149445904
refaddr    $ref: 149445904