my $dbh=DBI->connect(
    $dsn, $user, $pass,
    {
        RaiseError => 1,
        PrintError => 0,
        AutoCommit => 1,
    }
);