...
use strict;
use warnings;

use base 'Class::DBI';
...


##</code><code>##

...
$SIG{__DIE__} = \&prepareToDie;
...

sub prepareToDie{

my $message=shift;

# report and log the error etc
...
die($message);
}