my $uri=$reqUri;
	local $data='{ "update": { "comment": [ {"add":{"body":"new comment via rest and LWP"} } ] } }';
    local $ua, $key, %form, $response;

    $ua = LWP::UserAgent->new;
    $ua->timeout(10);
    $ua->agent("citrigger");
    my $request = HTTP::Request->new(PUT => $uri);
	$request->header(Authorization => 'Basic ' . encode_base64($usr . ':' . $pwd));
	$request->content_type('application/json');
	$request->content($data);
    $response = $ua->request($request);
	if ($response->is_success) {
	    $responseTxt=$response->decoded_content;
	    print "\nResponse:\n$responseTxt\n";
	}
	else {
		die $response->status_line;
	}
	return;