Select Code to Download

# Buffers to flush?
foreach $client ($select->can_write(1)) {
...
    next;
  }
}

# Buffers to flush?
foreach $client ($select->can_write(1))
...
    next;
  }
}