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

        # Wait for incoming message
        my $nfound = select ($rout=$rin, undef, $eout=$ein, 5);
        if ($nfound) 
        {
          # Check client streams, close any in error
          foreach my $streamID (keys %openStreamsSock)
          {
            if (vec($eout, fileno($openStreamsSock{$streamID}),1))
            {
              close ($openStreamsSock{$streamID});
              delete ($openStreamsSock{$streamID});
            }
          }

          if (vec($rout, fileno($sock),1))
          {
            $openStreamsSock{$streamRequest++} = $sock->accept();
          }
          else
          {
            foreach my $streamID (keys %openStreamsSock)
            {
              if (vec($rout, fileno($openStreamsSock{$streamID}),1))
              {
                # read data off the socket; not a message here, just r
+aw 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";
        }
      }
[download]

my debug statements (removed for readability) showed the script going all the way back to the select statement and then never coming back,

It ought to be fairly easy to tell if the timeout is failing to trigger. Just bracket the select line with

warn "before select: " . time;
select...
warn "after select: " . time;
[download]

And if it is, then that to me indicates that something is very broken. But I don;t know enough about it to say what.

I'd suggest that you confirm your suspicion, and then post a new SoPW with "select timeout failng on Ubunto vxxx & Perl vx.x.x". With as much logging from the period immediately preceding the failure--perhaps a tcp trace--as you can gather.

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"I'd rather go naked than blow up my ass"