real    0m10.722s
user    0m10.725s
sys     0m0.000s

##</code><code>##

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