perl检测服务是否正常

程序调用远端服务,为了确保可用性最好在使用前进行健康检测,将异常的服务排除。