C:>perl -le "print 'ok' if 3335.9999999999995 + 0.0000000000001 == 3335.9999999999995;" ok