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