In perl:

while (<>){ print };