Select Code to Download

$ref->{poolObj} = $clientPool;
exit 1 if ($clientPool->startPool(baseThreads => 10, moduleName => "SE
+RVER::Main", subName => "clientThreadPool", values => $ref));

# Open Server Socket
my $sock = IO::Socket::INET->new(Proto => 'tcp',
...
    }
}

        my $fd = @$work[0];
        our $clientaddr = @$work[1];
...

        # Get the password sent by client
        my $clientpass = <$fh>;

        # create and add socket file handle so it can be checked withi
+n the while loop
        my $select = IO::Select->new();
...
            }
            
        }

    # execute the command and save results in a file handle to reduce 
+memory usage
    if (($head =~ /.+/) && ($tail =~ /.+/)) {
...
        }
        close ($fh);
    }