sub {
  my $v = 111;
  eval {
        eval 'print $v, " x\n"';
        eval 'print $v, " y\n"';
        print $v, " z\n";
    };
}->();