use strict;
use warnings;

use RDF::Query::Client;

my $query = RDF::Query::Client->new(<<'SPARQL');
PREFIX category: <http://dbpedia.org/resource/Category:>
PREFIX dc:       <http://purl.org/dc/terms/>
PREFIX rdfs:     <http://www.w3.org/2000/01/rdf-schema#>
SELECT *
WHERE {
	?resource dc:subject category:English_film_actors .
	?resource dc:subject category:Life_peers .
	?resource rdfs:label ?name .
	FILTER ( langMatches(lang(?name), "en") )
}
SPARQL

my $results = $query->execute('http://dbpedia.org/sparql');
while (my $row = $results->next)
{
	printf(
		"%s <%s>\n",
		$row->{name}->literal_value,
		$row->{resource}->uri,
	);
}