... use constant MYPORT => 9810; $sock = new IO::Socket::INET(LocalPort => MYPORT, Reuse => 1, Listen => 5) or die "can't create local socket: $@\n"; print "Server lauft, zum Beenden Strg+c eingeben oder Prozess killen\n"; while ($client = $sock->accept()) { print "Accepting connections on Port ", MYPORT, "...\n"; print "Accepted connection from ", $client->peerhost(), ":", $client->peerport(), "\n"; if (fork() == 0) { while (<$client>) { ... meine abfragen für bestimmte befehle (server antwortet z.B. mit uptime etc.)