exec('tclsh','t/tcl/harness.tcl',$0);
