use warnings;
use strict;
use 5.010;

package A;
our $test = "Alpha";

package B;
our $test = "Beta";

package main;
say '$A::test    = ', $A::test;    # Alpha
say '$B::test    = ', $B::test;    # Beta
say '$test       = ', $test;       # Beta
say '$main::test = ', $main::test; # Uninitiaized