# file P2.pm
package P2;

use parent 'P1';

sub new { my $class = shift; return bless {} => $class }

sub A1 { print "i am A1 in >>>P2<<< (i have overwritten previous A1)\n"; }
# A2 and everything else are inherited from class P1
1;