use strict;
use warnings 'all';

use LWP::Simple 'get';
use JSON::Parse 'parse_json';

use constant URL => 'https://api.bridgedataoutput.com/api/v2/OData/test/TestData?access_token=xxxxxxxxxxxxxxxxxxxxxx';

my $json = get URL or die "Unable to get JSON data";
my $data = parse_json($json);

print $data;