$request = HTTP::Request->new(GET => 'https://xxxx');
$ua = LWP::UserAgent->new;
$response = $ua->request($request);
$decodejs = decode_json $response->content;
print Dumper $decodejs;