$Domain = qx(nslookup $IP|grep Name|awk {'print \$2'});