my $ua = LWP::UserAgent->new;
	my $server_endpoint = "https://api.someserver.com/v1/";
	my $req = HTTP::Request->new(POST => $server_endpoint);

	$req->authorization_basic('myusername', 'mypassword');
	my $post_data = "{ 'parm1': '$valueasscalar', 'parm2': 'TRUE',and: 'so on'}";

	$req->content($post_data);

	my $resp = $ua->request($req);
	if ($resp->is_success) {
	    my $message = $resp->decoded_content;
	    print "Received reply: $message";
	}
	else {
	    print "HTTP POST error code: ", $resp->code;
	    print "HTTP POST error message: ", $resp->message;
	}

##</code><code>##

HTTP POST error code: 400
HTTP POST error message: Bad Request