Select Code to Download

use base 'CGI';
BEGIN {
...
    my($self,$uri) = @_;
    $self->cgi_redirect($uri);
}

package BaseA;
sub func {}
...
    $self->BaseA::func(); # same
    $self->BaseB::func(); # only way to access BaseB::func
}