Direct_Url /listing2.html listing2

proc listing2 {args} {
 puts stderr $args

 set html    "<html>"
 append html "<body>"
 append html [html::tableFromArray ::env "border=1" *]
 append html "</body></html>"
 return $html
}