>perl -MDevel::Peek -e "$n=0755; Dump $n"
SV = IV(0x1928478) at 0x19245ac
  REFCNT = 1
  FLAGS = (IOK,pIOK)
  IV = 493