Looking at it a bit more the final loop in the main code should probably be more like this:

while( 1 ) {
    $client->Connect() unless defined $client->Process(1);
    while( $Qsend->pending ) {
        my $msg = $Qsend->dequeue;
        $client->MessageSend( to => 'user2@xmpphostname', type => 'cha
+t', body => $msg );
    }
}
[download]