# Constants.pm package Constants; use constant XX => 0; use constant YY => 1; our @EXPORT = qw(XX YY); 1;