19:35 >perl -wE "printf(qq[%012d], 17.40 * 100);"
000000001739
19:35 >perl -wE "printf(qq[%012d], int((17.40 * 100) + 0.5));"
000000001740
19:35 >