# file P1.pm
package P1;
sub new { my $class = shift; return bless {} => $class }
sub A1 { print "i am A1 in P1\n"; }
sub A2 { print "i am A2 in P1\n"; }
1;