# file test.pl
# run: perl -I. test.pl
use P2; # and not P1

my $P2obj = P2->new();

$P2obj->A1(); # this is overwritten
$P2obj->A2(); # this is inherited verbatim from parent P1