Hola, amigos, tengo el siguiente script para capturar un endpoint en JSON.
#!/usr/bin/perl
use utf8::all;
use JSON;
use LWP::Simple;
use Data::Dumper;
my $ua = LWP::UserAgent->new;
my $server_endpoint = "http://comercio.comerxxx.com/"; #URL contains actual URL
# set custom HTTP request header fields
my $req = HTTP::Request->new( GET => $server_endpoint );
$req->header( 'content-type' => 'application/json' );
$req->header( 'Accept' => 'application/json' );
$req->header( 'secret' => 'secreto' );
$req->header( 'dateDesde' => '2018-06-10' );
$req->header( 'dateHasta' => '2018-06-30' );
my ...