$dbh = DBI->connect($datasource, $username, $password, {RaiseError => 1})
    or die $DBI::errstr;