while ( my $line = <INPUT_HANDLE>) {

##</code><code>##

while ( <INPUT_HANDLE> ) {

##</code><code>##

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