async concurrency

gistfile1.txt

my $done = Promise.new();
my $listener = IO::Socket::Async.listen('127.0.0.1', 8080);
my $tap = $listener.tap( -> $client {
        say "acepted on " ~ $*THREAD.id;
        $client.Supply().tap(-> $input {
            say "read input on " ~ $*THREAD.id;
            $client.print($input);
            sleep-until now+10;
            say "/read $*THREAD.id;
        });
    });
await $done;