local $SIG{__die__} = sub {
    die ("DBI Error: $DBI::errstr") if $DBI::errstr;
    die $!;
};