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

proc GetEnv {} {
	global env
	puts {Content-Type: text/html}
	puts {}
	puts "[array get env]"
}