Select Code to Download

for (keys %openStreamsSock) {

...
...

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

          if (vec($fout, fileno($sock),1))
          {
            $openStreamsSock($streamRequest++) = $sock->accept();
          }

my $nfound = select ($fout=$fin, undef, undef, 5);

if (defined ($msgSize) && ($msgSize > 0))

                else
                {
...
                  close ($openStreamsSock{$streamID});
                  delete ($openStreamsSock{$streamID});
                }

say "in 2nd if";

...
    vec($fin, fileno $CONNECTION, 1) = 1;
    $openStreamsSock{$streamRequest++} = $CONNECTION;
}

else
{
...
    vec($fin, fileno $openStreamsSock{$streamID}, 1) = 0;
    close ($openStreamsSock{$streamID});
    delete ($openStreamsSock{$streamID});

#CLIENT(run in multiple terminals to simulate multiple clients)

...
}

close $SOCK;

#SERVER:

...
    }
}