my $v;

BEGIN {
    $v = 5;
}

use constant {
    TEST => $v,
};

print TEST;