my $ready = (IO::Select->select($select,undef,undef,undef))[0];

foreach my $s (@$ready) {
     if ($s == $listener) {
          my $new_sock = $listener->accept;
          $clients{$new_sock} = {
			socket   => $new_sock,        
			input    => '',               
			ip       => $new_sock->peerhost
	  };
     }
}