Select Code to Download

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

gethost domain

say gethost($host);