while(@ready = $sel->can_read)
#...
    $line = <$fh>;