# Begin Package Foo
package Foo;
our $x = 1;
# End Package

##</code><code>##

# Begin Package Bar
package Bar;
our $x = 2;
# End Package

##</code><code>##

# 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"