++VinsWorldcom; added to my oneliner list, but a little shortened

<P>

 perl -MNet::DNS -MSocket -E "say inet_ntoa(Net::DNS::Resolver->new(na
+meservers=>[shift])->send(shift)->{answer}->[0]->{address});" resolve
+r1.opendns.com perlmonks.org<P>
[download]

Eventually in the same file there is another quick hack about DNS query using gethostbyname:

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

L*