1use strict; use warnings;
2
3greet('Hello');
4
5sub greet
6{
7    my $arg = shift;
8    print "$arg\n";
9    return;
10}
11