for (;;) { # Loop until "last".
   local $_ = <INHANDLE>;
   ...
   last if not defined $_;
}