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