my $dbh = DBI->connect(
    $connect_string,
    $user,
    $pass,
);

die "Couldn't connect to DBI\n" unless $dbh;
$dbh->{RaiseError} = 1;