$ perl -MSocket -le'$_ = gethostbyaddr inet_aton( q[216.109.112.135] ), AF_INET; print'
w2.rc.vip.dcn.yahoo.com