#!/usr/bin/perl

use strict;
use warnings;
use LWP::UserAgent;
use JSON;

my $BingKey="xxx";
my $MyBingJsonQuery = "Hello";


	my $href= 'https://api.cognitive.microsoft.com/bing/v5.0/search?' . $MyBingJsonQuery;
	print "Connecting to Bing for: $href\n";
	my $ua= LWP::UserAgent->new();

	my $req = HTTP::Request->new(GET => $href);
	$req->header($BingKey);
	my $res = $ua->request($req);
	
  # Check the outcome of the response
  if ($res->is_success) {
	print "I could connect to the API\n";
 	my $resp= $ua->get($href);
	my $data = decode_json($resp->content); 
	my @urls = map { $_->{'Url'} } @{ $data->{d}->{results} };
  }
  else {
	print "Impossible retrieving info from Web\n";
  }