# Main Program
use Foo;
use Bar;

our $x = 3;

print "x without package reference = $x";
print "Foo x = $foo::x;        # Output should be "Foo x = 1"
print "Foo x = $bar::x;        # Output should be "Bar x = 2"

$x = 4;
print "x without package reference = $x";
print "Foo x = $foo::x;        # Output should be "Foo x = 1"
print "Foo x = $bar::x;        # Output should be "Bar x = 2"