Writing PL/Tcl triggers