$ perl -e'printf "%.0f\n", $_ for 4.9999999999, 5'
5
5