perl -MSocket -E'say inet_ntoa "".gethostbyname shift' domain