perl -MSocket -le "print scalar gethostbyaddr(inet_aton('127.0.0.1'),AF_INET)"