19:26 >perl -wE "say int(35784.45 * 100); say int(35784.45 * 100 + 0.5);"
3578444
3578445

19:27 >