my $text = qq("Researchers from the University of Minnesota's Institute on the Environment looked at 17 key crops that produce 86 percent of the world crop calories.);

my $ua = LWP::UserAgent->new();
my $response = $ua->post(
    'http://query.yahooapis.com/v1/public/yql',
    ['q' => "select * from contentanalysis.analyze where text='".$text."'"]
);
print $response->content();


##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<error xmlns:yahoo="http://www.yahooapis.com/v1/base.rng" yahoo:lang="en-US"><description>Query syntax error(s) [line 1:96 missing EOF at 's']</description></error>


##</code><code>##

<?xml version="1.0" encoding="UTF-8"?>
<query xmlns:yahoo="http://www.yahooapis.com/v1/base.rng" yahoo:count="0" yahoo:created="2014-07-19T19:41:26Z" yahoo:lang="en-US"><results/></query><!-- total: 177 -->
<!-- engine4.yql.ne1.yahoo.com -->