# In Foo.pm package Foo; $Global = 'bar'; use base 'Exporter'; @EXPORT = qw($Global); # In Bar.pm package Bar; use Foo; print "$Global\n";