Help for this page
while( $mutrate - 0.01 > $DBL_EPSILON ){
my $DBL_EPSILON = $e =1; $e /= 2 while $e /2 +1 > 1;