while (my $line = ) {print $line}; __DATA__ one two three four