#!/usr/bin/perl -l

use strict;
use warnings;
use RPC::XML::Client;
use Devel::SimpleTrace;
use Data::Dumper::Concise;

my $client = RPC::XML::Client->new('http://path-to-rpc-server:19000');

my $req = RPC::XML::Client->new(
          'Gateway.SendMessage',
          'show',
          'channels',
);
$client->credentials(qw(Gateway user password));

my $resp = $client->send_request($req);
print Dumper(
    ref $resp ? join(', ', @{$resp->value}) : "Error: $resp"
);