Select Code to Download

for (                       # Lexical scope
  my($idx,$x,$y)=(0,0,0);   # Initializer
...
  print "$idx, $x, $y\n";
}

{                                     # Lexical scope
  my( $idx, $x, $y ) = ( 0, 0, 0 );   # Initializer
...
    $y += 3;
  }
}

$ perl -MO=Deparse,-x9 ./mytest.pl

...
    }
}
./mytest.pl syntax OK