while (my @allhandles = $links->select($links, undef, $links) {