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