package A;
    use base qw(B);
    @ISA=(C);