#!/usr/bin/env perl
use LWP::Simple;
$url = "http://api.search.yahoo.com/WebSearchService/V1/webSearch?appid=YahooDemo&query=@{[shift]}&results=2";
$results = get $url || die "Web services request failed: $!";
%entities = qw(&lt; < &gt; > &amp; & &#039; ' &quot; ");
foreach (keys %entities) { $results =~ s/$_/$entities{$_}/g; }
print $results;