Как получить трассировку в Perl?

Возможный дубликат:
Как я могу заставить backtrace стека для всех фатальных ошибок в Perl?

Одна из вещей, которые мне нравятся в Python, заключается в том, что когда script выходит из-за ошибки, он выплескивает трассировку. Мне интересно, есть ли способ заставить Perl сделать это?

Ответы

use Carp 'verbose';
$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };