perl -MSocket -e 'print inet_ntoa(scalar(gethostbyname("hostname")))'