use DBD::SQLite;
my %attr;
$attr{AutoCommit}=1; # Turn on AutoCommit.
if (! -e $dbfile)
    {
    $dbh=DBI->connect("dbi:SQLite:$dbfile", undef, undef, \%attr) or
      die "Could not open $dbfile: $DBI::errstr";
    # Now create table.
    $sql="CREATE TABLE data ";
    $sql.="(skey TEXT PRIMARY KEY, "; # Was varchar(30)
    $sql.="svalue TEXT)";
    $sql.=";";
    $ret=prepex($sql);
    }
else {
    $dbh=DBI->connect("dbi:SQLite:$dbfile", undef, undef, undef) or
      die "Could not open $dbfile: $DBI::errstr";
    }
$s="SQLite version: ".$dbh->{sqlite_version};
writeerr($s);

SQLite version: 3.8.4.1