my $dbh = DBI->connect("dbi:ODBC:test", $user, $pass,
{ 'AutoCommit' =>1, 'RaiseError' =>1}) || die "Error connecting: '$DBI
+::errstr'";
# Assuming the username and password to connect to the DB are in $user and $pass, respectively.