srvr.pl6

    my $num = 0;
    IO::Socket::Async.listen($.host,$.port,).tap(-> $connection {
      my $snum = $num++;
      my @chunks;
      "connected #$snum".say;
      my $tap := $connection.chars_supply.tap({
        $_.say;
        try {
          $connection.send("HTTP/1.1 200 OK\r\nContent-Type: text/plain\r\nContent-Length: 6\r\n\r\nstring");
          "closing connection $snum".say if $.debug;
          $connection.close;
        };
      });
    });