This version of the script attempts to resolve both Internet and authoritative (local db) DNS queries. To resolve internet addresses the script uses a modified version of dns.tcl from tcllib.
Note-- dns.tcl requires udp package > 1.04. IOS Tcl has udp version 1.0 and for this reason the script eventually stops with the error "state(reply): no such element".
This script is for demonstration purposes only.