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