while ( defined ( my $line= <INPUT_HANDLE> ) ) {