gistfile1.txt

┌─[tadzik@yavin4]─[~] 
└─[%]─> cat dupa.pl 
my $a = IO::Socket::INET.new(
    localhost => 'localhost',
    localport => 1337,
    :listen
);
say "Listening";
my $b = $a.accept();
say "accepted";
my $c = $b.recv;
say $c.perl;
┌─[tadzik@yavin4]─[~] 
└─[%]─> perl6 dupa.pl&     
[1] 16976
┌─[tadzik@yavin4]─[~] 
└─[%]─> Listening

┌─[tadzik@yavin4]─[~] 
└─[%]─> ncat localhost 1337
accepted
foo
Invalid operation on binary string
  in method perl at src/gen/CORE.setting:3994
  in block  at dupa.pl:10

[1]  + exit 1     perl6 dupa.pl