如何在Perl中将常量导入多个模块？

package MyConstants;

use strict;
use warnings;

use Exporter qw(import);

our @EXPORT_OK = qw(CONSTANT1 CONSTANT2);

use constant CONSTANT1 => 'value1';
use constant CONSTANT2 => 'value2';

1;

package Module1;

use strict;
use warnings;

use MyConstants qw(CONSTANT1);

sub my_sub {
    print "Constant1: ", CONSTANT1, "\n";
}

1;

package Module2;

use strict;
use warnings;

use MyConstants qw(CONSTANT2);

sub my_sub {
    print "Constant2: ", CONSTANT2, "\n";
}

1;