is there a way to produce a stack-trace on exit (warning or error), like Java programs do?

• Devel::Confess
• Devel::StackTrace
  • it requires this code to be added: $SIG{__WARN__} = $SIG{__DIE__} = sub { print STDERR shift, Devel::StackTrace->new->as_string if (defined($^S) && $^S == 0) };
• Devel::StackTrace::WithLexicals
  • again, add: $SIG{__WARN__} = $SIG{__DIE__} = sub { print STDERR shift, Devel::StackTrace::WithLexicals->new->as_string if (defined($^S) && $^S == 0) }