while (my $line = <INHANDLE>) {
   ...
} continue {
   ... if eof(INHANDLE);
}

##</code><code>##

while (my $line = <INHANDLE>) {
   ...
}

...