use strict;
use warnings;

my $result = sqrt(2);
print $result ."\n";

my $s = surface($r);

sub surface {
    my $r = shift;
    my $s = 3.141629 * $r **2;
    return $s;
}