perl -MNet::DNS -MSocket -E "say inet_ntoa(Net::DNS::Resolver->new(nameservers=>[shift])->send(shift)->{answer}->[0]->{address});" resolver1.opendns.com perlmonks.org

#### perl -MSocket -e "print map {qq($_ : ).inet_ntoa((gethostbyname$_)[4]).qq(\n)} @ARGV"