#!/usr/bin/perl -T
use strict;
use warnings;
use CGI::Carp qw(fatalsToBrowser);
use LWP::UserAgent;
use JSON;
use Data::Dumper;

print "Content-type: text/html; charset=utf-8\n\n";

sub GetWikipediaExtract {
my $SearchURL = $WikipediaAPI_URL."Eric Clapton";

my $ua = LWP::UserAgent->new;
$ua->timeout(1);
$ua->agent('Mozilla 123');
my $response = $ua->get($SearchURL);

	if ($response->is_success) {
	my $content = $response->decoded_content;
	$content =  &EncodeUTF8($content);

	my $json_obj = new JSON;
	my $perl_data = $json_obj->decode($content);

	my $text = $perl_data->{'query'}->{'pages'}->{'92491'}->{'extract'};

	print Dumper($extract);
	}
}