#!/usr/bin/perl
use strict;
use warnings;
use HTTP::Tiny;
use JSON;
use Test::JSON;
use utf8::all;
use URI::Escape;
use Smart::Comments '###';
use List::Util qw(min max);
use Statistics::Basic qw(median mode);

# ...

my $http = HTTP::Tiny->new(timeout => 6000);

# ...

$response = $http->post($url,
                        {headers=>{Authorization=>"token $access_token"},
                         content=>$query});
die $! unless is_valid_json $response->{content};

# ...