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