perl -e 'print sprintf("%.20f",(3010*1.15))."\n"' # Outputs 3461.49999999999950000000