$ echo -n "0" | perl -E'while(<>) { say "GOT" }'
GOT
$ echo -n "0" | perl -E'while(<> and 1) { say "GOT" }'
$