+eval {
+ my $conn = new ZOOM::Connection($host, 0);
+ $conn->option(preferredRecordSyntax => "usmarc");
+ my $rs = $conn->search_pqf($query);
+ my $n = $rs->size();
+ print "Query '$query' found $n records\n";
+ for my $i (0..$n-1) {
+ my $rec = $rs->record($i);
+ print "=== Record ", $i+1, " of $n ===\n";
+ print $rec->render();
+ }
+
+ $rs->destroy();
+ $conn->destroy();
+}; if ($@) {
+ die "Non-ZOOM error: $@" if !$@->isa("ZOOM::Exception");
+ print STDERR "Error ", $@->code(), ": ", $@->message();
+ print STDERR " (", $@->addinfo(), ")" if $@->addinfo();
+ print STDERR "\n";
+ exit 1;
+}