# In Foo.pm package Foo; use constant GLOBAL => 'bar'; use Exporter; @ISA = qw(Exporter); @EXPORT = qw(GLOBAL); # In Bar.pm package Bar; use Foo; print GLOBAL, "\n";