while(@ready = $select->can_write) {.....}