Echo server: Difference between revisions

By default it spawns 5 child processes at startup, makes sure there are always at least 2 and at most 10 spare children available for new requests, each of which will be killed after processing 1000 requests and new ones will take their place.

=={{header|Perl 6}}==

<lang perl6>my $socket = IO::Socket::INET.new:

localhost => 'localhost',

while $conn.recv -> $stuff {

say "Echoing $stuff";

}

$conn.close;