Select Code to Download

  package C;
  our @ISA = qw/ A /;
...
    # now I'll do a bit
    ...
  }

  sub 123 {
    my $self = shift;
...
    # do more stuff
    return wantarray ? @array : $scalar;
  }