in reply to die hooks, signal handlers and eval, all mixed up

Well-placed,

{
    local $SIG{__DIE__} = sub { print @_; die @_ };
#   ...
}

[download]
may be what you need.

After Compline,
Zaxo

In Section Seekers of Perl Wisdom