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

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