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