It shouldn't matter but if you are worried about processing the EOF marker, try this...

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

while ( my $line = <INPUT_HANDLE> ) {
    chomp $line;
    process_line($line);
    last if eof(INPUT_HANDLE);
}
close(INPUT_HANDLE);
...
[download]