$ perl -e 'printf "%.0f\n", 2.5;'
2
$ perl -e 'printf "%.0f\n", 1.5;'
2