package P;

use strict;

package P1;
@P1::ISA = qw(P1);

1;