perl -le'while($a = 0){print "$a ok\n"; last }'    # 
 perl -le'while($a = 1){print "$a ok\n"; last }'    # prints 1 ok