#/usr/bin/perl
use strict;
use warnings;
use My_Globals;

print "global a = $globals{'a'}\n";

__END__
prints: global a = 1
   
=========== file My_Globals.pm ========
#!/usr/bin/perl
use strict;
use warnings;
package My_Globals;
use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);
use Exporter;
our $VERSION=1.0;
our @ISA = qw(Exporter);
our @EXPORT = qw(%globals);
our @EXPORT_OK = qw();

our %globals =
 ( a => 1,
   b =>2);
   
1;