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