me@myhost> perl -MO=Deparse -e 'for( my $x = 0; $x < 10; $x++ ) { print "foo\n" }'
  for (my $x = 0; $x < 10; ++$x) {
      print "foo\n";
  }
  -e syntax OK
  me@myhost>