C:\>perl -MMath::LongDouble=":all" -le "$n1=Math::LongDouble->new('10');$n2=Math::LongDouble->new('1.000001');for(1..60000000){$n1 *= $n2}print $n1;"
1.14197313013239314e+027