package Slave;
use strict;
use Exporter qw< import >;
use vars     qw< @EXPORT_OK $type >;
@EXPORT_OK = qw< $type >;
# ...
1;

##</code><code>##

use strict;
use Slave qw< $typo >;

##</code><code>##

use strict;
use Slave qw< $type >;
print $typo;