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