# Open Server Socket
my $sock = IO::Socket::INET->new(Proto => 'tcp',
									LocalAddr => $servername,
									LocalPort => $port,
									Listen => SOMAXCONN,
									Reuse => 1,
									Blocking => 0);

our $selSock = IO::Select->new($sock);

#some more code is here, like initializing our db connection, and log4perl logger 

while(my @ready = $selSock->can_read) {
        foreach $_ (@ready) {
		if ($_ == $sock) {
			$logger->info("Base socket is " . $sock);
			$logger->info("Adding new socket");
			#create a new socket
			my $newSock = $sock->accept or die;
			$logger->info("Added new socket " . $newSock);
			$selSock->add($newSock);
		
			my $fd = fileno $newSock;
			my $address = inet_ntoa($newSock->peeraddr);
			
			# enqueue client connection to be processed
			my @values = ($fd, $address);
			if ($clientPool->queueJob(queueValues => \@values)) {
			$logger->error("Failed to queue client connection");
				
				# trash packets received from client
				my $trash = <$newSock>;
				
				send($newSock, "*** ENQUEUE_FAILED ***", 0);
				send($newSock, "*** ZERO_BYTES_LEFT ***", 0);

				$selSock->remove($newSock);
					
				shutdown($newSock, 2);
				close $newSock;
			}
		}
	}
}