my ($a, $eps, $x, $y);

print "Näherungsweise Wurzelberechnung\n";
print "Wert a: "; $a = <STDIN>;
print "Grenze: "; $eps = <STDIN>;
$y = $a/2;
do
  {
  $x = $y;
  $y = ($x + $a/$x)/2;
  }
  while (abs($y - $x) > $eps);
print "Ergebnis: ", $y;