C:\>perl -le "print 'ok' if 3335.9999999999995 > 3335.999999999999;" ok