sub hello {
    my $name = shift;
    print "Hello, $name!\n";
}

sub add {
    my ($a, $b) = @_;
    return $a + $b;
}
1;