Posted to tcl by mjanssen at Sun May 06 18:15:58 GMT 2007view pretty

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