Couldn't you override $SIG{__DIE__} in a very small block of code? like

{
   $old_handler = $SIG{__DIE__};
   $SIG{__DIE__} = sub { # test for dbi error and do things or "redie"
+};
   #DBI call
   $SIG{__DIE__} = $old_handler;
}
[download]

Or would this be horribly unperlish?

Update: As always: I don't mind being stupid, and so a downmod is as welcome as a ++ to a good node; I'd just like to get explained why the node is --'ed, so I can learn ;-P

Update II: you live and learn, Lachesis answer ++, disregard my code.

regards,
tomte

---

Hlade's Law:

If you have a difficult task, give it to a lazy person --
they will find an easier way to do it.