there was an article on perl.com about that. perhaps it is of some use.

it utilizes (amongst others) the Error.pm try/catch approach together with Fatal.pm.