本筋とは全然関係ないですが、danさんのコードでは出口がふたつですよね。 sub search_result{ my $q = shift; if ($q->param("query")){ my $uri = URI->new($WEBAPI_BASEURL); $uri->query_form( appid => $MYYDN_APPID, query => $q->param("query"), results => $MAX_RESULTS ); my $response = LWP::Simple::get($uri); if ($response){ my $xml = XML::Simple->new->XMLin($response, ForceArray=>['Result']); my @result = ($xml->{'totalResultsAvailable'}