# comment use strict in and out
# use strict;

package Foo;
our $global = 'global ';
$not_so_global = 'not so global';

package Bar;
print "Full package name: ", $Foo::global, $Foo::not_so_global, "\n";
print "No package name:   ", $global, $not_so_global, "\n";