if(substr($line,0,4) eq 'name') {
                  push @users, substr($line,4,20);
                  $socket->print("In Userlist aufgenommen\n");