#!/usr/bin/env perl

use strict;
use warnings;

use ZOOM;
use 5.014;

my $host = 'z3950.bnf.fr';
my $port = '2211';
my $db = 'TOUT-UTF8';

eval {
    my $user = ZOOM::Options->new();
    $user->option(user => "Z3950");
    my $pass = ZOOM::Options->new();
    $pass->option(password => "Z3950_BNF");
    my $options = ZOOM::Options->new($user, $pass);
    my $conn = ZOOM::Connection->create($options);
    $conn->connect($host, $port, databaseName => $db );
    $conn->option( preferredRecordSyntax => 'unimarc' );
    my $rs = $conn->search_pqf('@attr 1=7 9782266193689');
    $rs->option(elementSetName => 'F');
    my $n  = $rs->size();
    say $rs->record(0)->render();
    say "We have $n records.";
    for my $i (1 .. $n) {
        my $rec = $rs->record($i-1);
        say $rec->render();
    }
};
if ($@) {
    say "Error ", $@->code(), ": ", $@->message(), "\n";
}