#!/usr/bin/perl

use JSON::RPC::Client;
use Data::Dumper;

my $client = new JSON::RPC::Client;
my $url = 'http://9999.9999.9999.9999/api_jsonrpc.php';

my $callobj = {
        method => 'user.authenticate',
        params => ["admin","password"] };

print Dumper(ref($callobj));

my $sessionid = $client->call($url, $callobj);

if($sessionid) {
        if ($sessionid->is_error) {
        print "Error : ", $sessionid->error_message;
        } else {
                print $sessionid->result;
        }
} else {
        print $client->status_line;
}