Wireshark is a free and open-source packet analyzer. It is used for network troubleshooting, analysis, software and communications protocol development, and education.
Wireshark itself doesn't support scripting with Tcl, but the library it provides, libwireshark, is used by Network Expect.