$ perl -e 'printf " %.0f \n", 3461.5;'
 3462

$  perl -e 'printf " %.0f \n", 3462.5;'
 3462