$ perl -we'$x = $y = 2**53-1; ++$x; print $x-$y'
1
$ perl -we'$x = $y = 2**53; ++$x; print $x-$y'
0