sub square {
    my $num = shift;
    my $result = $num * $num;
    return $result;
}