Select Code to Download

use strict;
use Net::XMPP;
use Data::Dumper;
...
}

while(defined($con->Process())) { }

Presence
From: pi@mh.com/9b568386-f5e3-46de-bb1d-22f2d861a94a
Type: 
Status:

$con->PresenceSend( status => "doing nothing at all"  );

Presence
From: pi@mh.com/c577d4e2-c4b3-44b5-b044-d2e7e67b0172
Type: 
Status: doing nothing at all

$con->PresenceSend( type => "available" );

Presence
From: 
Type: error
Status: