my $iq = Net::Jabber::IQ->new();
        $iq->SetType('get');
        $iq->SetTo("$server/admin");
        my $q = $iq->NewQuery('jabber:iq:browse');
        my $result = $Connection->SendAndReceiveWithID($iq);

        print Dumper($result);