while (my $line = <$fh>) {
 # Do something with $line
}