#!/usr/bin/perl -w
use SOAP::Lite;
my $service='http://127.0.0.1:8082/';
my $qs = 'SELECT ?x, ?y WHERE (dc::title  ?x ?y) USING dc for http://purl.org/dc/elements/1.1/';
my $ql = 'http://www.w3.org/2002/04/squish-ql#v0.9';
my $ns = "http://rdfweb.org/RDF/RDFWeb/SOAPDemo";
my $db='codepict';
my $soap = SOAP::Lite->uri($ns)-> proxy($service);
my $r = $soap->squish($qs, $ql, $db)->result();
if ($r) {
  foreach my $row (@{$r}) {
    my %fields = %{$row};
    foreach my $field (keys %fields) {
      print "$field: ". $fields{$field} ."\n";
    }
    print "\n";
  }
}


#$qs = 'SELECT ?x, ?y WHERE (foaf::nick ?x ?y) USING foaf for http://xmlns.com/foaf/0.1/';