C:\_32>perl -wle "$m = (2**53) - 1; $n = 2; print $m % $n;"
1

C:\_32>perl -MPOSIX -wle "$m = (2**53) - 1; $n = 2; print fmod($m, $n);"
1