my $mysub = do {
	my $myvar;
	eval 'return sub : lvalue { $myvar }';
};

$mysub->() = 42;

print $mysub->(), $/;