Select Code to Download

print sqrt($_), "\t", mysqrt($_, .0000001), "\n" for qw/.25 .50 .75 1 
+10 50 100 1000 31415926/;
sub mysqrt {
...
    $try = $dif > 0 ? $try + $len : $try - $len;
    return mysqrt($tgt, $err, $try, $len);
}