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

##</code><code>##

package A;
sub abc { "abc\n" };
sub def { "def\n" };

package B;
# inherit from A all but A::def
foreach my $symname (keys %A::) {
 next if $symname eq 'def';
 $B::{$symname} = $A::{$symname};
}
my $b = bless({}, 'B');
print $b->abc;	# prints "abc\n"
print $b->def;	# no such method