RosettaCodeData/Task/Echo-server/Mathematica/echo-server.math

server = SocketOpen[12321];
SocketListen[server, Function[{assoc},
  With[{client = assoc["SourceSocket"], input = assoc["Data"]},
   WriteString[client, ByteArrayToString[input]];
   ]
  ]]