Perl6 Promise Supply IO::Socket::Async