use strict;
use warnings;
my $zahl=2; #mit 4 geht es
my $i=1;
while (($i**2) ne $zahl){
	$i = (($i**2+$zahl)/$i)/2;}
print "Wurzel von ".$zahl." ist ".$i.".";