use warnings;
use strict;

my $v = 5;

use constant {
    TEST => $v,
};

print TEST;