use strict;
use warnings;

sub foo {
	our $Package_global = 'foo';
};

print $Package_global;