package MyConstants;

use base qw(Exporter);

our @EXPORT = qw(CONST1 CONST2);

use constant CONST1 => 12356;
use constant CONST2 => 'xxx';

1;

##</code><code>##

use MyConstants;

use strict;
use warnings;

print CONST1;