#!/usr/bin/perl

use strict;
use warnings;
use Term::ReadKey;

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

my @logindata;

print "username:\n";
$logindata[0] = ReadLine(0);
ReadMode('noecho');
print "password:\n";
$logindata[1] = ReadLine(0);

my $cli = RPC::XML::Client->new('https://servername/rpc/xmlrpc');
my $ua = $cli->useragent;
$ua->proxy(['https'], 'proxyserver');
my $resp = $cli->send_request('login', $logindata[0], $logindata[1]);

print ref $resp ? join(', ', @{$resp->value}) : "Error: $resp";

exit 0;