#!/usr/bin/perl

use strict;
use RDF::Redland;
use RDF::Redland::Model;
use RDF::Redland::Storage;
use RDF::Redland::Statement;

my $dir = '/www/iconocla.st/hacks/query/';

my $storage = RDF::Redland::Storage->new("hashes",'ontobot', "new='no',hash-type='bdb',dir='".$dir."'");

my $model = RDF::Redland::Model->new($storage,'');
my $baseuri = RDF::Redland::URI->new($uri);
my $sourceuri = RDF::Redland::URI->new($uri);

my $statement = RDF::Redland::Statement->new(undef,undef,undef);

my @triples = 
foreach (@s) {
	print($_->as_string);
	print "\n";
}