$ perl -e 'printf "%d\n", 141.999999999999999'
142