use warnings;
use strict;
use DBI;

my $dsn="XYZ";
my $user="ABC";
my $password="****";

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