use XML::RPC;
....

my $server = "https://....";
my $xmlrpc = XML::RPC->new($server);
my $user = "userid";
my $password = "password";
my @args = ($user, $password);
my $token = $xmlrpc->call("login", \@args);
....


##</code><code>##

wxpar -M XML::TreePP -M LWP::UserAgent -M HTTP::Lite -o xmlrpc_test.exe xmlrpc_test.pl

##</code><code>##

no data at XML/RPC.pm line 255