perl dns mysql

环境:mysql+dns+mon
要求:当mon监控到mysql服务失败后,会通过perl脚本删除dns中的A记录,请大侠帮忙