sub greet_world : no_override {
    my $self = shift;
    my ($greeting) = @_;

    print "$greeting, world\n";
}