{
   local $_;
   do {
      $_ = <INHANDLE>;
      ...
   } while defined $_;
}