There is an excellent presentation that covers the graceful handling of DBI errors (and transaction handling) that was given at a
Melbourne PM meeting by
pjf earlier this year. The notes for this talk can be found in PDF format on the
Perl Training Australia web page
here.
perl -e 'print+unpack("N",pack("B32","00000000000000000000000111100001")),"\n"'