Pseudo-hashes are deprecated at WebYahooSites2.pl line 28.
Argument "\x{42}\x{72}..." isn't numeric in hash element at WebYahooSites2.pl line 28.
Bad index while coercing array into hash at WebYahooSites2.pl line 28.

##</code><code>##

#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
my $resp;	##Holds the content
my $appID = "YahooDemo";
my $resultsNum = "5";
my $site = 'http://api.search.yahoo.com/WebSearchService/V1/webSearch?
appid=YahooDemo&query=Spears&results='.$resultsNum.'&format=html';

my $response = $ua->get($site);
if ($response->is_success) {
	$resp =  $response->content;  # or whatever
}
else {
	my $err = $response->status_line;
	print "Error: $err \n";
}

use XML::Simple;
my $xml = new XML::Simple;
my $doc = $xml->XMLin($resp);

my $recordNum = 0;
for( ref $doc->{Result} eq "HASH"?$doc->{Result}:ref $doc->{Result}eq "ARRAY"?@{$doc-
>{Result}}:() ){
	print "Title: $doc->{Result}{Title}\n";
	print "Url: $doc->{Result}{Url}\n";
	print "MimeType: $doc->{Result}{MimeType}\n";
	print "Cache URL: $doc->{Result}{Cache}{Url}\n";
	$recordNum++;
}

exit;