#!C:\Perl\bin\perl

use strict;
use warnings;

require RPC::XML;
require RPC::XML::Client;

my $cli = RPC::XML::Client->new('servername');
my $ua = $cli->useragent;
$ua->proxy(['http', 'https'], 'proxyname');
$ua->env_proxy;

$cli->credentials('servername', 'username', 'password');
my $resp = $cli->send_request('system.listMethods');