Select Code to Download

% perl -wce 0
-e syntax OK

% perl -wce '( 1, 0, undef, , "di foo", "ds bar", "ig baz" )'
-e syntax OK

0 until ....

1 while some_condition_with_side_effects;

0 while some_condition_with_side_effects;