Select Code to Download

#!/usr/bin/perl
use strict;
...
# print our guess and what Perl says
print "My guess of square root of $num is $guess\n";
print "Perl says it's ".$num**.5."\n";

#!/usr/bin/perl
use strict;
...
while (abs($n - $_**2) > 1e-13){ $_ = ($n/$_ + $_)/2}

print "Guess: $_\nperl: ".$n**.5."\n";