while (1) {
foreach ( $s -> can_read) {
 recv $_, $buffer, 1000;
}
print ".";
}