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