package Slave;
my $type;
sub type(;$) :lvalue { $type = shift if @_; $type }
1;

package main;
use strict;
use Slave;
Slave::type = "FOO";
print Slave::type . "\n";
Slave::tpye = "BAR"; # dies