##
our $var = "value";
print($main::var eq "value" ? "true" : "false", "\n"); # true
##
##
package Test;
$var = "value";
print($Test::var eq "value" ? "true" : "false", "\n"); # true
##
##
our $var;
package Test;
$var = "value";
print($Test::var eq "value" ? "true" : "false", "\n"); # false