package X;
sub A { " base class implementation" }
sub B { " base class implementation" }
1;

package Y;
@ISA (X);

# Let's use A() from the base class
sub B { "local implementation" }