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