#!../../../../../dpi.inpe.br/banon/1998/05.17.16.22/doc/bin/tclsh80.exe
#!/bin/sh
# \
exec ../../../../../../dpi.inpe.br/banon/1997/10.21.17.24/doc/tcl8.0/unix/tclsh "$0" ${1+"$@"}
# Copyright for the Uniform Repository Service (c) 1995 - 1999,
# by Gerald Banon. All rights reserved.
# Version 2.1
# test
puts {Content-Type: text/html}
puts {}
foreach name [array names env] {
	puts "$name = $env($name)<BR>"
}