检查域名是否可用的perl脚本