out.txt

bduggan: wrk -t 5 http://localhost:3333
Running 10s test @ http://localhost:3333
  5 threads and 10 connections
  Thread Stats   Avg      Stdev     Max   +/- Stdev
    Latency   136.11ms  248.76ms   1.30s    85.47%
    Req/Sec    92.86     40.93   217.00     69.28%
  3128 requests in 10.09s, 253.54KB read
Requests/sec:    309.93
Transfer/sec:     25.12KB

web-async.p6

use v6;

my $response = q:to/HERE/.encode("UTF-8");
HTTP/1.1 200 OK
Content-Length: 6
Connection: close
Content-Type:text/plain

hello
HERE
my $loop =
start {
    react {
        whenever IO::Socket::Async.listen('localhost',3333) -> $conn {
            my $req_str;
            whenever $conn.Supply(:bin) -> $buf {
                 $conn.write($response);
                 $conn.close;
            }
        }
    }
}

await $loop;