# same as 'use constant FOO => 10'
BEGIN {
    my $lex = 10;
    *FOO = sub () { $lex };
}