使用 Perl 解压缩文件时如何找出错误代码的含义？

eval {
    # 解压缩文件的代码
};
if ($@) {
    print "Error: $@";
}

use POSIX qw(perror);

eval {
    # 解压缩文件的代码
};
if ($!) {
    perror("Error");
}

use Fcntl qw(strerror);

eval {
    # 解压缩文件的代码
};
if ($^E) {
    print "Error: ", strerror($^E), "\n";
}

use Carp qw(os_error);

eval {
    # 解压缩文件的代码
};
if ($OS_ERROR) {
    print "Error: ", os_error(), "\n";
}