package Foo ;
use strict ;
our $t = 2 ;
{
	BEGIN {
		# package Bar ; # added
		*Foo::x = \$Foo::t;
	}
	++$x ;
	# ++$Foo::x; # no errors
	print $x ;
	# print $Foo::x; # no errors
}