Select Code to Download

#!/usr/bin/perl -w
use strict;
...

my $sqrt = sqroot $num;
print "Square root of $num: $sqrt\n";