my $dsn = "dbi:SQLite:$dbname";
    $dbh = DBI->connect(
        $dsn, undef, undef,
        {   PrintError                 => 0,
            RaiseError                 => 1,
            AutoCommit                 => 1,
            sqlite_see_if_its_a_number => 1,
            sqlite_unicode             => 1
        }
        )
        or die("Cannot connect to the database: $DBI::errstr ($DBI::err) \n");
    my $self = { dbh => $dbh };
    die "dbh undef " unless ($dbh);  
    # print "Dbman_sqlite->new\n";
     $self->{dbh}->trace(1, *STDOUT);