Help for this page

Select Code to Download

Select or download this

use Net::Jabber qw(Client);
my $jabber = Net::Jabber->new();
...
                      priority=>10);

$jabber->Disconnect;