Select Code to Download

use strict;
use warnings;
...
}

print Dump($$ref);

SV = IV(0x3b2e0) at 0x3b2e4
  REFCNT = 1
  FLAGS = (PADMY,IOK,pIOK)
  IV = 42