#!/usr/bin/tclsh
puts "Content-type: text/html\n\n"
foreach line [glob ../../*/*/*tcl] {puts "$line<br>"}