IO::Socket::INET自去年以来的perl6变化和违背承诺

去年我问了一个关于承诺的问题,我的echo服务器正在工作(请参阅以下链接: perl6 how to get specific identity of promises?

我想我可以在perl6文档网站上试试这个例子( https://docs.perl6.org/type/IO::Socket::INET ),但我想找出我在代码中犯了什么错误。我目前的水平使我无法看到我的代码与perl6文档网站上的代码之间的差异。请给我一个提示;谢谢

my @result;

for 0 .. 2 -> $index {
  @result[$index] = start {
    my $myPromiseID = $index; 
    say "======> $myPromiseID\n";

    my $rsSocket = IO::Socket::INET.new:
    localhost => 'localhost',
    localport => 1234 + $index,
    listen    => 1;

    while $rsSocket.accept -> $rsConnection {
        say "Promise $myPromiseID accepted connection";
        while $rsConnection.recv -> $stuff {
        say "Promise $myPromiseID Echoing $stuff";
        $rsConnection.print($stuff);
        }
        $rsConnection.close;
    }
  }
}

await @result;

错误消息为:

Tried to get the result of a broken Promise
  in block <unit> at p6EchoMulti.pl line 24

Original exception:
    Nothing given for new socket to connect or bind to
      in block  at p6EchoMulti.pl line 8

Actually thrown at:
  in block  at p6EchoMulti.pl line 13