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