#!perl
C::A->thing(); # prints "C::A";
C::B->thing(); # prints "C::B";

package C::A;
sub thing {
  print shift;
}

package C::B;
use base 'C::A';

##</code><code>##

my $self = @_; #2