Perl> print "$_: ", $_ % 2 
    for 1e308, 1e308 + 1, 
        1.999999999999999, 1.9999999999999999999;;
1e+308:  0
1e+308:  0
2:  1
2:  0