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