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