Select Code to Download

  foreach $client ($select->can_read(1)) {
    if($serversocks{$client}) {
...
      $connections{$client} = Connection->new($client, \%outbuffer, $U
+tils::thisserver);
      $unfinished{$client}  = $connections{$client};
    }

sub setnonblocking {
  my $sock = shift;
...
  fcntl($sock, F_SETFL, $flags | O_NONBLOCK) or
    die "Can't set socket non-blocking: $!\n";
}