package constants;
use strict;
use Exporter;
our @ISA = qw/Exporter/;
our @EXPORT_OK= ($FOO, @BAR, %HASH);
our $FOO = 1;
our @BAR = qw/A B C/;
our %HASH = (A=>1,B=>2);
1