# filename: ex360.pl # Send SPARQL query to SPARQL endpoint, store and output result. use LWP::UserAgent; use URI::Escape; $endpointURL = "http://dbpedia.org/sparql"; $query = " SELECT ?elvisbday WHERE { ?elvisbday . } "; $escapedQuery = uri_escape($query); $requestURL = $endpointURL . "?query=" . $escapedQuery; $request = new HTTP::Request 'GET' => $requestURL; $ua = new LWP::UserAgent; $result = $ua->request($request); print $result->content;