在eval之后获取消息，而不是消息+行号+文件名

Question

我有一个由模型和控制器组成的cgi perl脚本

#controller.cgi
use model qw(may_corak_function); 
...
eval {
    may_croak_funtion( $my_arg )
} 
if ($@) {
    print "Failed because $@";
}

而且，在一个秘密的地方定义了模型：

#model.pm
package model;
use Carp qw(croak); 
sub may_croak_function {
     my $p = shift;
     if ($p eq 'not this') {
          croak "$p is not accepted";
}

好吧，我收到错误消息

Failed because not this is not accepted at /secret/path/model.pm line 81

由于我不希望某个perl脚本在错误出现时立即输出所有服务器配置，如何才能获得没有at /secret/path/model.pm at line 81的消息？

我浏览互联网，我无法相信没有其他人有同样明显的问题