The question has several parts:
(1)How to connect to the server? Since you mentions IO::Socket I assume the server is listening on a socket. What protocol is it expecting to service? (2)After you fetch the file you need to extract the data from the file. Usually some combination of split(), grep() and regular expressions are used. (3)Then this data is stored in your $box display object.
Which of 1, 2, or 3 do you need help with?
The code posted is unhelpfully adjacent to the question you asked. could you perhaps edit your post to only include an outline of the code? Unless, of course, multiple Perl Monks picking apart your code is what you want?
s//----->\t/;$~="JAPH";s//\r<$~~/;{s|~$~-|-~$~|||s
|-$~~|$~~-|||s,<$~~,<~$~,,s,~$~>,$~~>,,
$|=1,select$,,$,,$,,1e-1;print;redo}