package First;
my $x;
package Other:
print $x;  # still the same $x

##</code><code>##

package First;
our $x;
package Other:
print $x;  # still the same $x