Look at Perl/Tk Chatterbox Client in the PerlMonks.org Related Scripts section of the Code Catacombs ... I think it contains exactly what you are looking for ... tho I'm a little sleepy right now ... z z z ...

HTH
--
idnopheq
Apply yourself to new problems without preparation, develop confidence in your ability to to meet situations as they arrise.

~ Shunryu Suzuki