#!/usr/bin/perl

use warnings;
use WWW::Mechanize;
use Crypt::SSLeay;

$mech = WWW::Mechanize->new();
$url  = "https://api.datamarket.azure.com/Bing/SearchWeb/Web?Query=%27Xbox%27&$top=10&$format=JSON";

$account_key = "<my key>";
$mech->credentials($url, '', '', $account_key);

$mech->get($url);

print $mech->content();