You could always check out my Perl/Tk Chatterbox Client. It's an example, and it works. :-)

Cheers,
Shendal