use bignum;
$e = exp(2 ** (-128));
use Data::Dumper; 
print Dumper($e);
print $e,"\n",1-$e,"\n";