while( my $line = ){ print $_; }