C:\test>perl -E"while(<>){ print }"
hello
hello
goodbye
goodbye
^Z

##</code><code>##

C:\test>perl -E"for(;<>;){ print }"
fred
fred
bill
bill
john
john
^Z