Create nslookup.tcl

Random dns tcl.