Posted to tcl by mjanssen at Sun May 06 17:35:44 GMT 2007view pretty

package require Tcl 8.2
package require dns
::dns::configure -nameserver 10.0.0.2
set tok [::dns::resolve 154.193.245.88.tr.countries.nerd.dk]
::dns::wait $tok
::dns::result $tok
::dns::cleanup $tok