在Perl应用程序中检测编译失败,丢失包等的最简单方法是什么？

#!/usr/bin/perl

use strict;
use warnings;

my $module = 'Some::Module';

# 检测模块是否存在
if (not require $module) {
    if ($@) {
        # 如果模块加载失败，打印错误信息
        print "Error loading module $module: $@\n";
    } else {
        # 如果模块不存在，打印错误信息
        print "Module $module not found\n";
    }
} else {
    # 如果模块加载成功，执行相关操作
    print "Module $module loaded successfully\n";
}

my $code = 'some_perl_code';

# 检测代码是否编译成功
if (not eval { $code }) {
    if ($@) {
        # 如果代码编译失败，打印错误信息
        print "Error compiling code: $@\n";
    } else {
        # 如果代码编译成功，执行相关操作
        print "Code compiled successfully\n";
    }
}