Help for this page

Select Code to Download

Select or download this

use Math::BigFloat;

...
  $g = ($g + ($N/$g))/2;
  print $g, "\n";
}