while (defined ($_ = readline (*FH)))