compartir variables entre subclase y clase

package MiClaseBase;
use strict;
use warnings;

use Exporter 'import';  
our @EXPORT_OK = qw/ variables & funciones /;
our %EXPORT_TAGS = (all => \@EXPORT_OK );
our ($ME, $list, $of, $vars);

sub mi_func {

}
sub otra_func {

}

package MiClaseExp;
use strict;
use warnings;
use Exporter 'import';  
our @EXPORT_OK = qw/ MiClaseBase /;
our %EXPORT_TAGS = (all => \@EXPORT_OK );
use MiClaseBase ':all';

sub mi_func {
   # nueva def
}