in reply to Centralised error handling
A much more robust solution would be to use Log::Log4perl.
Log::Log4perl http://search.cpan.org/~mschilli/Log-Log4perl-1.38/lib/Log/Log4perl.pm
DBIx::Log4perl http://search.cpan.org/~mjevans/DBIx-Log4perl-0.26/lib/DBIx/Log4perl.pm
Log::Log4perl::Appender::DBI http://search.cpan.org/~mschilli/Log-Log4perl-1.38/lib/Log/Log4perl/Appender/DBI.pm
Log::Dispatch::DBI http://search.cpan.org/~miyagawa/Log-Dispatch-DBI-0.02/lib/Log/Dispatch/DBI.pm
In Section
Seekers of Perl Wisdom