use strict;
package foo;
our $y  = "This is in package foo"; # $x and $y both package
$foo::x = "This is in package foo"; # variables
print $foo::x;
{ #bare block
    our $x;
    print $x; #$x = $foo::x
} #end of bare block
print $x #Give a warning under use strict
         #because the 'our' declaration
         #is out of scope

package bar;
print $foo::y; #prints $y declared with 'our' in package foo
print $foo::x; #prints $x declared with package name in foo