in reply to Tk Thread XMPP exit thread

The following should work

while ($keep_running eq 1) {
    $Connection->Process(1);
}

[download]

In Section Seekers of Perl Wisdom