gereral library code for tcl and perl development