perl -e 'print join ".", unpack "C4", (gethostbyname "services.soaplite.com")[4]'