perl电子邮件：：MIME的问题

我在perl中使用Email:MIME模块时遇到问题。这可能是因为我用错了，但很难找到使用它的例子。我很确定我应该使用完整消息的标量作为输入，但它不起作用。这是我的代码和输出

代码：

输出：

Logging in....logged in successfully
body:
mycrlf:
body_raw:
parts:
ct:
header:

---

我认为应该在打印语句中

$parsed->{$key}

始终

使用严格和
使用警告。这将立即指出一个错误：

全局符号“%parsed”需要在第21行显示包名。

第21行应为：

foreach my $key (keys %$parsed) {print $key.":".$parsed->{$key}."\n";}

您是否打印了
$msg
，以查看其中是否包含类似于带有标题的电子邮件？
foreach my $key (keys %$parsed) {print $key.":".$parsed->{$key}."\n";}