...
open INPUT_HANDLE ....
    or die ...

while ( my $line = <INPUT_HANDLE> ) {
    chomp $line;
    last if my_eof_test($line, \*INPUT_HANDLE);
    process_line($line);
}
close(INPUT_HANDLE);
...