my $dbh = DBI->connect(
   $datasource,$user,$pass,
   {RaiseError => 1},
);