set t [clock milliseconds]
set f [open "|cat" w]; puts $f "hi"; close $f
ns_return 200 text/plain "pipe open took [expr {[clock milliseconds] - $t}]ms"