#!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
use JSON;

my $client = new LWP::UserAgent;
my $json = new JSON;

my %request=('commandlet'=>'memory','output'=>'json');
my $json_request = $json->encode(\%request);

my $web_request = $client->post('http://localhost:12345/query',{ username => 'default',
								password => 'changeme',
								json => $json_request
								});
print $web_request->content;