IO::Socket::Async client example tweaks

Couple of tweaks:
- There are issues with libuv when it defaults ipv6 when using localhost name. We can workaround that just using 127.0.0.1 instead of localhost name.
- Added newline for print

Author: Jarkko Haapalainen

doc/Type/IO/Socket/Async.pod6

@@ -43,12 +43,12 @@ react {
 And a client that connects to it, and prints out what the server answers:
 
 =begin code
-await IO::Socket::Async.connect('localhost', 3333).then( -> $promise {
+await IO::Socket::Async.connect('127.0.0.1', 3333).then( -> $promise {
     given $promise.result {
-        .print('Hello, Perl 6');
+        .print("Lorem ipsum dolor sit amet, consectetur adipiscing elit.\n");
         react {
             whenever .Supply() -> $v {
-                $v.say;
+                $v.print;
                 done;
             }
         }