Select Code to Download

package MyCGI;
use base CGI;
undef(*MyCGI::param);

package A;
sub abc { "abc\n" };
...
my $b = bless({}, 'B');
print $b->abc;    # prints "abc\n"
print $b->def;    # no such method