$ perl -e'printf "%d\n", $_ for 4.9999999999, 5'
4
5