sub B::same { goto &A::same } # or *B::save= \&A::save;