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

##</code><code>##

gethost domain

##</code><code>##

say gethost($host);