#!/usr/bin/perl -w
use Devel::Peek;
$ptrUV = unpack('J',pack('P[12]',"Hello World"));
$ptrIV = unpack('j',pack('P[12]',"Hello World"));
print Dump($ptrUV);
print Dump($ptrIV);
$ptrUV += 2**31;
print Dump($ptrUV);

##</code><code>##

SV = IV(0x182a260) at 0x182a264
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 28545556
SV = IV(0x182a3e0) at 0x182a3e4
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 26107564
SV = IV(0x182a260) at 0x182a264
  REFCNT = 1
  FLAGS = (IOK,pIOK,IsUV)
  UV = 2176029204