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