Select Code to Download

  $openStreamsSock{$streamRequest++} = $sock->accept();

      while (1)
      {
...
          print "$0: Normal timeout of select...\n";
        }
      }