sub squareFn { my $var = shift; return $var * $var ; }