LOOP:
while (1) {
  {  # localize change to $/
    last LOOP unless @from_server = <$socket>; #<---program hangs on this line
  }
  print @from_server,"\n";