trying these

gistfile1.txt

my $socket = IO::Socket::Async.bind-udp('localhost', 5000);

react {
    whenever $socket.Supply -> $v {
        if $v.chars > 0 {
            say $v;
        }
    }
}

# await IO::Socket::Async.connect('localhost', 5000).then( -> $p {
#     if $p.status {
#         given $p.result {
#             .print('Hello, Perl 6');
#             react {
#                 whenever .Supply() -> $v {
#                     $v.say;
#                     done;
#                 }
#             }
#             .close;
#         }
#     }
# });

# my $listen = IO::Socket::INET.new(:listen, :localhost<localhost>, :localport(5000));
#
# loop {
#     my $conn = $listen.accept;
#     while my $buf = $conn.recv(:bin) {
#         $conn.write: $buf;
#     }
#     $conn.close;
# }