Help for this page
while ( my $line = <INPUT_HANDLE>) {
while ( <INPUT_HANDLE> ) {
while ( defined ( my $line= <INPUT_HANDLE> ) ) {