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