# Can print $v only once!!!
# Second call returns undef.
# Some coderef optimization???
# Lexical variable goes undef on second call.
#
sub {
    my $v = 111;
    eval q(
        eval 'print $v, "\n"'; # 111
        eval 'print $v, "\n"'; # undef
    );
}->();