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