C:\>perl -MDevel::Peek -le "$x = 1e6 * 1.0; Dump $x;" SV = IV(0x4ecb10) at 0x4ecb20 REFCNT = 1 FLAGS = (IOK,pIOK) IV = 1000000