June 2018 Update

Task/Echo-server/Perl-6/echo-server-1.pl6

@@ -1,7 +1,7 @@
 my $socket = IO::Socket::INET.new:
-    localhost => 'localhost',
-    localport => 12321,
-    listen    => 1;
+    :localhost<localhost>,
+    :localport<12321>,
+    :listen;
 
 while $socket.accept -> $conn {
     say "Accepted connection";

Task/Echo-server/Perl-6/echo-server-2.pl6

@@ -0,0 +1,7 @@
+react {
+    whenever IO::Socket::Async.listen('0.0.0.0', 12321) -> $conn {
+        whenever $conn.Supply.lines -> $line {
+            $conn.print( "$line\n" ) ;
+        }
+    }
+}