# 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
    );
}->();

##</code><code>##

sub {
    my $v = 111;
    eval q(
        eval 'print $v, "A\n"';
        eval 'print $v, "B\n"';
        print $v, "C\n";
    );
}->();