package C;
    use A;
    use B;
    our @ISA = qw /B C/;
    sub new {bless {}, shift}
    sub init {
        my $self = shift;
        $self -> B::init(@_[0, 1]);
        $self -> C::init(@_[2, 3]);
    }