#! perl -slw
use strict;

{
	my $x = 5;
	sub x : lvalue {
		$x;
	}
}

print x;

if( 1 ) {
	no warnings 'redefine';
	our $temp;
	local $temp = x;
	local *x = sub : lvalue{ $temp };
	
	print x;
	x = 123;
	print x;
}

print x;
__END__
P:\test>424776
5
5
123
5