In addition to what ambrus says, you can import the constants you want with,

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

which will alias A::XX() to Constants::XX(). XX() may then be used in package A without a fully qualified name.