package C2;
use base ("C1");

sub new {
    my $class   = shift;
    my $self    = {};

    return bless $self, $class;
}

sub printHi{ print "Hi\n"; }

1;
END {}