Create tcl-summary.pl

actual code, just replace the file name in line #5 with your own Tcl script file and run the perl program