use strict; use warnings; print "$_\n" while (<>);