Create dns46.tcl