1141973130130727445029596475.9716537356856120861983949092938989852995604918087368059784750017004880305063884032742217053556637130

##</code><code>##

use strict;
use warnings;
use Math::BigFloat;

my $exp=6e7;
Math::BigFloat->precision(-100);
my $x=Math::BigFloat->new('1.000001');
my $val=Math::BigFloat->new('1');
$\="\n";


for my $bit (reverse split //,sprintf '%b',$exp) {
    # print "$bit ",$x;
    $val->bmul($x) if $bit;
    $x->bpow(2);
}

$val->bmul(10);

print "Result : $val";

my $syphilis=Math::BigFloat->new('1141973130130727445029596475.971760');

print "diff: ", $val - $syphilis;

##</code><code>##

Compilation started at Tue Jan 20 02:19:30

/usr/bin/perl -w /home/lanx/pm/big_expo.pl 
Result : 1141973130130727445029596475.9716537356856120861983949092938989852995604918087368059784750017004880305063884032742217053556637130
diff: -0.0001062643143879138016050907061010147004395081912631940215249982995119694936115967257782946443362870

Compilation finished at Tue Jan 20 02:19:31