if($socket == $server) {
     my $client = $socket->accept;
     $select->add($client);
     $client->print("Connected"); # Aufforderung Username zu senden
} else {
      my $line = $socket->getline;
      if(defined $line) {
           $line =~ s!\r?\n$!!g;
           if(substr($line,0,4) eq 'name') {
                  push @users, substr($line,4,20);
                  $socket->print("In Userlist aufgenommen\n");
           } else {
                  if(lc($line) eq "quit") {
                        print "Client quits\n";
                        delete_socket($select, $socket);
                  } else {
                        print "Client says: [$line]\n";
                        $socket->print("$line\n");
                  }
            }
     } else {
            print "Connection closed by client\n";
            delete_socket($select, $socket);
     }
}