Async echo client example

gistfile1.txt

await IO::Socket::Async.connect('localhost',3333).then( -> $p {
   if $p.status == Kept {
      my $conn = $p.result;
      my $p2 = $conn.send('Hello, Perl 6');
      my $p3 = Promise.new;
      $conn.chars_supply.tap(-> $str { say $str; $p3.keep});
      await $p3;
      $conn.close;
   }
});