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

...