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