my $dbh    = DBI->connect($DSN, $userid, $sesame, {
    AutoCommit => 0,
    RaiseError => 1,
    PrintError => 0
}) or die "Connection failed!\n" . $DBI::errstr;