Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...
            warn "\tForward Lookup Failed: ", $resolver->errorstring, 
+"\n";
    }
}

Select or download this

Z:\>perl net_dns.pl

...
        192.168.50.70
        192.168.50.72