#!usr/bin/perl

use strict;
use ZOOM;
use MARC::Record;

# establish connection to CDL Melvyl database
my $connection = new ZOOM::Connection("melvyl.cdlib.org", 210);

# print out the name of the server/database
print "server is '", $connection->option("serverImplementationName"), "'\n\n";

# run a search for books with "otters" in the title
my $resultSet = $connection->search_pqf('@attr 1=4 otters');

# print out the number of results found
print "Found ", $resultSet->size(), "records\n\n";

##</code><code>##

my $resultSet = $connection->search(new ZOOM::Query::CQL('title=otters'));