#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
use JSON;
use utf8;
use LWP::UserAgent;
use HTTP::Request::Common;
use Data::Dumper;

my $q = CGI->new();
print $q->header;
my $data = $q->param('POSTDATA');
$data = decode_json($data) if $data;

my $query = $data->{'query'};
my $format = $data->{'format'};
my $domain = $data->{'domain'};
my $language = $data->{'language'};

my @UriCollected;

print "Content-type: application/json;\n\n";

#performing crawling here and collecting uri in @UriCollected
print objToJson( { myData => \@UriCollected } );