+ my $rec = $rs->record(0);
+ print($conn->option("host"), ": rec(0) is ",
+ defined $rec ? ("$rec = '", $rec->render(), "'") : "undefined",
+ "\n");
+ return 0;
+}
+
+sub got_record {
+ my($conn, $rs, $event) = @_;
+ my $rec = $rs->record(0);
+ print $conn->option("host"), ": got 0: $rec = '", $rec->render(), "'\n";