my $ev = Net::Z3950::ZOOM::connection_last_event($z[$i-1]);
print("connection ", $i-1, ": event $ev (",
Net::Z3950::ZOOM::eventstr($ev), ")\n");
my $ev = Net::Z3950::ZOOM::connection_last_event($z[$i-1]);
print("connection ", $i-1, ": event $ev (",
Net::Z3950::ZOOM::eventstr($ev), ")\n");