Help for this page

Select Code to Download


  1. or download this
    <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>
  2. or download this
    
 perl -MSocket -e "print map {qq($_ : ).inet_ntoa((gethostbyname$_)[4]
+).qq(\n)} @ARGV"