package A;

sub foo { print "xyzzy\n"; }

1;

##</code><code>##

package B;
use base 'A';

1;

##</code><code>##

package C;
use base 'B';

1;

##</code><code>##

#!/usr/bin/perl

require 'C.pm';

C::foo();