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);
....