Short and simple:

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

Or even shorter:

gethost domain
[download]

Or if you want one line of Perl as opposed to a one-liner,

say gethost($host);
[download]

Writing program gethost and/or function gethost is left to you.