# off hand code

sub make_greeting {
    # Return a greeting string, by default greet the world.

    croak "Bad parameter count to make_greeting" 
        unless @_ <= 1 and DEBUG;
    return "Hello " . ( $_[0] or "world" ) .".";
}