package C1;

sub new {
    my $class   = shift;
    my $self    = {};
    return bless $self, $class;
}

sub printGoodBye{ print "Goodbye @_ "; printWorld(); }
sub printWorld{ print "World\n @_"; }

1;
END {}

##</code><code>##

package C2;
use base ("C1");

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

    return bless $self, $class;
}

sub printHi{ print "Hi\n"; }

1;
END {}

##</code><code>##

#!/usr/bin/perl

use C2;

$bob = C2->new();
$bob->printGoodBye();

exit 0;