A simple perl program to summarize a Tcl script and check the data sent and transferred