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