#!/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 $statement = RDF::Redland::Statement->new(undef,undef,undef);

my @s = $model->find_statements($statement);

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