bing with perl sample

gistfile1.pl

#!/usr/bin/perl
use strict;
use warnings;

use LWP::UserAgent;
use JSON;

my $query       = 'Norway';
my $ua = LWP::UserAgent->new;
my $account_key = 'VHqbZUljwrsMUrVUBjTMPVD1SaY4aReHQYBPtk8dcGg=';
$ua->credentials( 'api.datamarket.azure.com:443', '', '', $account_key );
 
my $response = $ua->get( 'https://api.datamarket.azure.com/Bing/Search/v1/Web?Query=%27' . $query . '%27&$format=JSON' );
 
my $ref = JSON::decode_json( $response->decoded_content );
use Data::Dumper;
warn Dumper( $ref );