package a;

our $x = 1;

package main;

print "a::x = ", $a::x, "\n"; # Fine
print "a::z = ", $a::z, "\n"; # want to raise error here