Select Code to Download

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

use strict;
use Slave qw< $typo >;

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