#!/usr/bin/env perl 
use strict;
use warnings;
use REST::Client;

my $rest = REST::Client->new ({
    host => 'http://httpbin.org'
});
my $body ='{ 
            "includes" :  [ { 
            "ids" : ["fbb7c736-852f-4158-aae3-1f97bc755cec"], 
            "observationName" : "sql_batches" } ], 
            "startTime" : 1602043200000, 
            "endTime" : 1602129599000, 
            "granularity" : 86400000, 
            "numberOfValue" : 1, 
            "retrievalType" : "RAW"
            }';
my $headers = {
    Accept => 'application/json',
    'Content-type' => 'application/json',
};
$rest->POST ('/anything', $body, $headers);
print $rest->responseContent;