gistfile1.pl

#!/usr/bin/env perl

use HTML::HTML5::Microdata::Parser;
use LWP::Simple 'get';
use RDF::Query;

my $uri = "http://helion.pl/";
my $microdata = HTML::HTML5::Microdata::Parser->new(
	get($uri),
	$uri,
);

my $query = RDF::Query->new(<<'SPARQL');
PREFIX v: <http://data-vocabulary.org/>
SELECT ?item ?av
WHERE {
	?review v:itemreviewed ?item .
	?review v:rating ?rating .
	?rating v:average ?av .
}
SPARQL

my $people = $query->execute($microdata->graph);

while (my $person = $people->next)
{
	printf(
		"Found review: %s %s\n",
		$person->{item},
		$person->{av},
	);
}