perl -E 'print sprintf("%0.18f",0.346);'