use strict;
use warnings;

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

print $Package_global;

##</code><code>##

our @EXPORT : unique = qw(foo);