package X;

our $global = 'Xglobal';

... more stuff here ...

package Y;

print $global;