use constant POS_INF => +(99**99**99);
use constant NEG_INF => -(99**99**99);

##</code><code>##

>perl -MDevel::Peek -e"Dump +(99**99**99)"
SV = NV(0x1832414) at 0x225334
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,NOK,READONLY,pNOK)
  NV = 1.#INF

>perl -MDevel::Peek -e"Dump -(99**99**99)"
SV = NV(0x1832424) at 0x22531c
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,NOK,READONLY,pNOK)
  NV = -1.#INF

##</code><code>##

$ perl -MDevel::Peek -e'Dump +(99**99**99)'
SV = NV(0x8165bd0) at 0x8160954
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,NOK,READONLY,pNOK)
  NV = inf

$ perl -MDevel::Peek -e'Dump -(99**99**99)'
SV = NV(0x8165be0) at 0x814cc9c
  REFCNT = 1
  FLAGS = (PADBUSY,PADTMP,NOK,READONLY,pNOK)
  NV = -inf