my $req = HTTP::Request->new(GET => 'http://localhost/cgi-bin/search.cgi?q=a query' ); my $res = $ua->request($req); my $json_results; if ($res->is_success) { $json_results = $json->decode($res->content); } else { die $res->status_line, "\n"; }