C:\>perl -le "print 3335.9999999999995; print 3335.999999999999;" 3336 3336