my $options = { RaiseError => 1, PrintError =>1 };
my $dbh = DBI->connect( $dsn, $username $password, $options )
  or die;
$dbh->{ShowErrorStatement} = 1;
$dbh->{HandleError} = sub { Carp::Confess( $_[0] };