eval "use constant CONST1 => 5; 1" or warn $@;

##</code><code>##

require constant;
constant->import(CONST1 => 5);