Creating a simple service monitoring CGI script

This for loop is the heart of our script. It's in this loop that we go through the list of servers and attempt a plain TCP socket connection to the specified port and IP address. If the socket connection succeeds, we know that the service is up and at least accepting incoming connections. If the socket connection fails, we know that the service is not running correctly on the specified port and is down.

It's here that we use the IO::Socket Perl module to attempt the connection with the simple IO::Socket::INET->new. function that created a new socket object and attempts the connection.