unless (syswrite($pc, $data)) {
     print STDERR $rc->peerhost,":",$rc->peerport,
         "<->",$pc->peerhost,":",$pc->peerport, " closed by ",
           $pc->peerhost,":",$pc->peerport,"\n";
   $sel->remove($pc);
   $sel->remove($rc);
   close $pc;
   close $rc;
next;
}