use base 'CGI'; BEGIN { *cgi_redirect = \&CGI::redirect; } sub redirect { my($self,$uri) = @_; $self->cgi_redirect($uri); } #### package BaseA; sub func {} package BaseB; sub func {}; package Derived; use base qw(BaseA BaseB); sub func { my $self = shift; $self->SUPER::func(); # calls BaseA::func $self->BaseA::func(); # same $self->BaseB::func(); # only way to access BaseB::func }