嘿，我完全懂你的困惑！网上搜Data::Dumper出来的大多是哈希、数组的基础示例，但当你要调试邮件对象这种复杂结构时，确实得换个思路来用它。我之前做过类似的员工通知脚本，给你一步步拆解怎么搞定这个需求：

默认的Dumper输出经常乱糟糟的，尤其是面对对象的时候，先设置几个全局参数让输出更易读：

use Data::Dumper;

# 缩进2格，结构更清晰
$Data::Dumper::Indent = 2;
# 对哈希键排序，避免每次输出顺序乱跳
$Data::Dumper::Sortkeys = 1;
# 深度复制对象内部的引用，防止输出一堆内存地址
$Data::Dumper::Deepcopy = 1;

不管你用的是Email::Simple、MIME::Lite还是其他邮件模块，都有两种打印思路：

方式一：直接打印整个邮件对象 #

如果想看到邮件的完整内部结构（比如所有头部字段、MIME部分），直接把对象传给Dumper就行：

# 假设$email是你生成的邮件对象
if ($dry_run) {
    print "=== DRY RUN: 预期邮件完整结构 ===\n";
    print Dumper($email);
}

方式二：提取关键信息打印（更适合给经理看预览） #

如果终端输出不想太冗长，只想展示收件人、主题、正文这些核心内容，就手动提取邮件的关键字段再Dumper：

if ($dry_run) {
    print "=== DRY RUN: 邮件预览 ===\n";
    print Dumper({
        收件人 => $email->header('To'),
        发件人 => $email->header('From'),
        邮件主题 => $email->header('Subject'),
        邮件正文 => $email->body,
        # 如果是多部分邮件，还可以提取附件信息：
        附件列表 => [map { $_->filename } $email->parts]
    });
}

用Getopt::Long处理命令行参数，在dry_run模式下打印预览后直接退出，不执行实际发送逻辑：

use Getopt::Long;

my $dry_run = 0;
# 解析命令行选项，--dry_run触发预览模式
GetOptions(
    'dry_run' => \$dry_run,
) or die "命令行参数解析出错！\n";

# 生成离职通知邮件（你的业务逻辑）
my $email = build_termination_email($leaving_employee, $manager_team);

if ($dry_run) {
    print "【Dry Run模式】不发送邮件，预览如下：\n";
    print Dumper($email); # 或者用上面的提取式打印
    exit 0; # 直接退出，跳过发送步骤
}

# 非Dry Run模式，执行实际发送
send_email($email);

如果邮件对象嵌套太深，Dumper输出太冗长，可以试试用Dumper的第二个参数给变量命名，或者只打印你关心的部分：

# 给变量命名，输出更清晰
print Dumper($email, [qw(email)]);

# 只打印邮件头部的指定字段
print Dumper($email->header_hashref({ 'To', 'Subject', 'From' }));

内容的提问来源于stack exchange，提问作者Jes