$ perl -e'
   printf "%.16f\n", 0.1234567890123456;
   printf "%.16f\n", 0.1234567890123457;
'
0.1234567890123456
0.1234567890123457