Select Code to Download

    my $dsn = "dbi:SQLite:$dbname";
    $dbh = DBI->connect(
...
    die "dbh undef " unless ($dbh);  
    # print "Dbman_sqlite->new\n";
     $self->{dbh}->trace(1, *STDOUT);

    my $sql  = "INSERT INTO authors (name, firstname) VALUES (?, ?);";
    $self->{st_insert_authors} = $self->{dbh}->prepare($sql);
...
    $sql = "SELECT authorid FROM authors WHERE name=? AND firstname=?"
+;
    $self->{st_select_authors} = $self->{dbh}->prepare($sql);
  ...

    $self->{st_select_authors}->execute($name, $firstname) or die  $se
+lf->{st_select_authors}->errstr;
     my $val_ar = $self->{st_select_authors}->fetchall_arrayref( {} );
     my $foundid;
     die Dumper $val_ar;
   #gives an empty array ref

:\docs\OA\entrees_liste>build_rerodb.pl -f out_181106.txt
    DBI::db=HASH(0x2bc47c4) trace level set to 0x0/1 (DBI @ 0x0/0) in 
+DBI 1.636-ithread (pid 7692)
...
    <- execute("Normand", " Bruce")= ( '0E0' ) [1 items] at Collabs_db
+.pm line 99
    <- fetchall_arrayref(HASH(0x2505b94))= ( [ ] ) [1 items] at Collab
+s_db.pm line 100
$VAR1 = [];