Actually, even IO::Socket::INET is not a bad solution.

Next, what kind of checking is good enough for you to believe the service is available? Most of the time, as long as you can create TCP connection, that service is available, as that means the server side is listening.