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