{
 local $SIG{__DIE__}  = sub {# feedback code here};
 eval {
 # your DBI code
 };
}