while (1)
      {
        # Set up bit vectors for polling
        my $fin = '';
        my $fout;
        vec ($fin,  fileno ($sock)         , 1) = 1;
        foreach my $streamID (keys %openStreamsSock)
        {
          vec ($fin,  fileno($openStreamsSock{$streamID})   , 1) = 1;
        }

        # Wait for incoming message
        my $nfound = select ($fout=$fin, undef, undef, 5);
        if ($nfound) 
        {
          if (vec($fout, fileno($sock),1))
          {
            $openStreamsSock($streamRequest++) = $sock->accept();
          }
          else
          {
            foreach my $streamID (keys %openStreamsSock)
            {
              if (vec($fout, fileno($openStreamsSock{$streamID}),1))
              {
                # read data off the socket; not a message here, just raw data
                $msgSize = sysread ($openStreamsSock{$streamID},
                                    $msgReceived, 1048576);

                if (defined ($msgSize) && ($msgSize > 0))
                {
                  writeStreamData ($streamID, $msgReceived);
                }
                else
                {
                  # $msgSize being 0 indicates end of stream, or
                  # $msgSize being undef indicates error, so close
                  close ($openStreamsSock{$streamID});
                  delete ($openStreamsSock{$streamID});
                }
              }
            }
          }
        }
        else
        {
          print "$0: Normal timeout of select...\n";
        }
      }