Select Code to Download

# Can print $v only once!!!
# Second call returns undef.
...
        eval 'print $v, "\n"'; # undef
    );
}->();

sub {
    my $v = 111;
...
        print $v, "C\n";
    );
}->();