#!/usr/bin/perl

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

my $BingKey="your key";
my $MyBingJsonQuery = "Hello";


	my $href= 'https://api.cognitive.microsoft.com/bing/v5.0/search?q=bill gates&count=20&mkt=en-us&safesearch=Moderate';
	print "Connecting to Bing for: $href\n";
	my $ua= LWP::UserAgent->new();

	my $req = HTTP::Request->new(GET => $href);
	$req->header('content-type' => 'application/json');
	$req->header('Ocp-Apim-Subscription-Key'=>'d1490494840c4a1dbdd499aeee7ded9e');
	$req->header('host'=>'api.cognitive.microsoft.com');
	
	my $res = $ua->request($req);
	print $res->as_string;
	
  # 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";
  }