<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/bin/perl -w

die("Please configure the URL, username, and password, and then remove this line.\n");

use XMLRPC::Lite;
use Data::Dumper;

my $proxy = 'http://username:password@example.com/horde/rpc.php';

my $xlite = XMLRPC::Lite
    -&gt; proxy($proxy)
    -&gt; call('calendar.listCalendars');

my $status = $xlite-&gt;result;

print Data::Dumper-&gt;Dump($status);
</pre></body></html>