my $class = ref $type || $type;

Nix that; you don't need it.

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

You don't need that either. Just delete the whole thing.

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

This is a lot better as:

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

... or even:

use SUPER;

# ...

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