package Constants;
use strict;
use Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(FOO $BAR @A %H)

use constant FOO => 1;
our $BAR = "bar";
our @A = (1,2,3,4);
our %H = (a=>1,b=>2);

1;