I just use: $SIG{__DIE__} = sub {Carp::confess @_};
pgsql-hackers by date:
Соглашаюсь с условиями обработки персональных данных