package C1; use parent (qw(A B C D));