my $dbh = DBI->connect( "DBI:DBM:",
                        '', '',
                        { RaiseError => 1,
                          AutoCommit => 1 }
);