use strict;
use warnings;
use LWP::UserAgent;
use Data::Dumper;
use JSON::PP;
use HTTP::Request::Common;

my $query = "research";
my $format = "";
my $domain = "";
my $language = "";
	
my $data = { query => $query, format => $format, domain => $domain, language => $language };

my $url = 'MyDomain/cgi-bin/querySearchEngine.pl';
my $ua  = LWP::UserAgent->new;
my $request = POST($url, Content_Type=>'application/json',
	Content => encode_json($data) );
my $response = $ua->request($request);
	
if ($response->is_success) {
	my $json_text= $response->content;    
	my $decoded_json = decode_json( $json_text );
}