Perl中的confess函数类似于cluck;它调用die，然后打印一个堆栈跟踪，一直到初始脚本。
package T;
require Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw/function/;
use Carp;
sub function {
confess "Error in module!";
}
1;当从下面的脚本中调用时
use T; function();
它将产生以下结果
Error in module! at T.pm line 9 T::function() called at test.pl line 4