while(<>){ #reads lines until end of file or a Control-D print "$_"; #prints lines back out } print "done";