Help for this page
DB<1> $d1 = '1230.1200'; ... DB<5> print $d1 1230.12
DB<1> $a='0.0000001'; ... DB<9> print $a 1e-35