...
print "\$mutrate = $mutrate\n";
while ($mutrate-0.01 > $DBL_EPSILON){
...

##</code><code>##

$ pm_1048891_test.pl
$mutrate = 0.4451357658