package A;

sub foo {};

package B;

sub bar {};

package C;

use vars qw(@ISA);
@ISA = qw(A B);