% perl -wce 0
-e syntax OK

##</code><code>##

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

##</code><code>##

0 until ....

##</code><code>##

1 while some_condition_with_side_effects;

##</code><code>##

0 while some_condition_with_side_effects;