Select Code to Download

  foreach (@Listeners){
   vec($rout,fileno($_),1) or next;
...
   while (accept(my $NewServer, $_)){
      push @Clients, $NewServer

  foreach (@Listeners){
   vec($rout,fileno($_),1) or next;
...
      push @Clients, $NewServer
   }else{ log "accept: $!" }

  foreach (@Listeners){
   vec($rout,fileno($_),1) or next;
...
   select($rvec,undef,undef,0);
   vec($rvec,fileno($_),1) and goto acc;