> perl -MDevel::Peek -e"Dump(+.0)"
SV = NV(0xa4a5fc) at 0x3d53c4
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,NOK,READONLY,pNOK)
  NV = 0

> perl -MDevel::Peek -e"Dump(-.0)"
SV = NV(0xa4a60c) at 0x3d53f4
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,NOK,READONLY,pNOK)
  NV = 0

> perl -MDevel::Peek -e"Dump(.0)"
SV = NV(0xa4a5fc) at 0x3d53c4
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,NOK,READONLY,pNOK)
  NV = 0