This is the best use of [`SocketConnect`](https://reference.wolfram.com/language/ref/SocketConnect.html) that I can think for now.



    Dynamic[Framed@TextCell[
       Text[Style[
         txt, LineSpacing -> {0.5, 0}, FontFamily -> "Courier", 
         TextJustification -> 0]], PageWidth -> 180
       , Background -> RGBColor[0, 0, Rational[8, 27]], FontColor -> White
       ]]

    socket = SocketConnect[{"towel.blinkenlights.nl", 23}];
    CheckAbort[
      While[txt =!= EndOfFile,
       txt = ReadString[socket, "\[RawEscape][H"]
       ], Close[socket]
      ];
    Close[socket]

![Mathematica graphics](https://i.sstatic.net/KmHvC.png)