package Child;
    use base qw(Mother Father);

    sub DESTROY { $_[0]->EVERY::DESTROY }