# Constants.pm
package Constants;

use strict;
use Exporter;
our @ISA = qw(Exporter);
# if you want to automatically import
our @EXPORT = qw(%ABC $A);
# or if you want to explicitly import
our @EXPORT_OK = ();

our $A = "A";
our %ABC = ("A"=>1,"B"=>2,"C"=>3);
1;