in reply to ptkdb module using Tkx?

Also try Devel::tkdb and Devel::tcltkdb.