Perl中的carp函数
Perl中的carp函数与warn基本等效，可以将消息打印到STDERR，而无需实际退出脚本并打印脚本名称。
package T;
require Exporter;
@ISA = qw/Exporter/;
@EXPORT = qw/function/;
use Carp;
sub function {
carp "Error in module!";
}
1;当从如下脚本中调用时-
use T; function();
它将产生以下结果-
Error in module! at test.pl line 4