{ # Loop while "redo".
   local $_ = <INHANDLE>;
   ...
   redo if defined $_;
}