#!/usr/local/bin/tclsh8.4
# The exec tclsh<whatever>'' below will simply be ignored.
# This nasty script generates output, then hangs
# \
if [ -e /usr/bin/tclsh ]; then exec /usr/bin/tclsh "$0" ${1+"$@"} ; fi
# \
if [ -e /usr/local/bin/tclsh8.4 ]; then exec /usr/local/bin/tclsh8.4 "$0" ${1+"$@"} ; fi
# \
if [ -e /usr/local/bin/tclsh8.3 ]; then exec /usr/local/bin/tclsh8.3 "$0" ${1+"$@"} ; fi
# \
if [ -e /usr/bin/tclsh8.4 ]; then exec /usr/bin/tclsh8.4 "$0" ${1+"$@"} ; fi
# \
exec tclsh "$0" ${1+"$@"}

puts "Content-Type: text/html"
puts ""
puts [clock format [clock seconds]]<br>
puts "This script is hung<br>"
flush stdout
while (1) {
    after 10000
}