C:\>perl -MMath::Decimal128=":all" -le "$n1=Math::Decimal128->new('10', 0);$n2=Math::Decimal128->new('1000001', -6);for(1..60000000){$n1 *= $n2}print $n1;"
114197313013072744502959647597176e-5

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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