密码保护：检测指定端口是否有连接的perl脚本

这是一篇受密码保护的文章，您需要提供访问密码：

密码：