Select Code to Download

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

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

my $self = @_; #2