$ perl -e 'printf " %.0f \n", 3010*1.15,'
 3461