Select Code to Download

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

$ echo "Hello" | perl -E'while(<>){ print $_ }'
Hello
$ echo "Hello" | perl -E'<>; print $_'
$

while (defined($_ = <$fh>))