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