sub new {
    my $type = shift; # Call as: World->new ();
    my $class = ref $type || $type;
    
    return Hello::new ($class);
}

##</code><code>##

# Now call up to get base class work done
return $self->Hello::hi (' World' . $tail);

##</code><code>##

use SUPER;

# ...

    return $self->SUPER( ' World' . $tail );