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

##</code><code>##

$ perl -le '$x=1.5;print int($x+.5)';
2
$ perl -le '$x=2.5;print int($x+.5)';
3