package Foo;
use Exporter;
@ISA = qw(Exporter);
@EXPORT_OK = qw(Access_Global);

my $some_global_variable = 1;
sub Access_Global { return $some_global_variable++; }

package Bar;
use Foo qw(Access_Global);
...
my $some_var = Access_Global;