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 {}