# in A.pm
package A;
use Constants qw(XX);