#!C:\Perl\bin\perl

use strict;
use warnings;

require LWP::UserAgent;
require RPC::XML;
require RPC::XML::Client;

my $ua = LWP::UserAgent->new;
$ua->proxy(['http', 'https'], 'proxyname');
$ua->env_proxy;

my $cli = RPC::XML::Client->new('servername', $ua);
$cli->credentials('servername', 'username', 'password');
my $resp = $cli->send_request('system.listMethods');