package C;
  our @ISA = qw/ A /;
  sub 123 {
    my $self = shift;
    # let my superclass do its thing first
    my $result = $self->SUPER::123(@_);
    # now I'll do a bit
    ...
  }