$ host yahoo.com
yahoo.com has address 66.94.234.13
[ SNIP ]

$ perl -MSocket -le'my $name = gethostbyaddr inet_aton( "66.94.234.13" ), AF_INET; print $name'
w2.rc.vip.scd.yahoo.com