# Copyright for the Uniform Repository Service (c) 1995 - 2002,
# by Gerald Banon. All rights reserved.
# Version 2.1
# test

proc Test {} {
	global env
	puts {Content-Type: text/html}
	puts {}
	foreach name [array names env] {
		puts "$name = $env($name)<BR>"
	}
}