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