sub greet {
    my $who = shift;
    print <<"    EOT";
        Hello, $who
    EOT
}