#!/usr/bin/tclsh
package req ncgi
puts [ncgi::header]
puts "Vars: <br />"
foreach {n v} [ncgi::nvlist] {
	puts "Name:$n; Value:$v // encoding:[encoding convertfrom utf-8 $n]; v:$[encoding convertfrom utf-8 $v];<br />"
}
puts "Done! <br />"