如何在Perl中将XML转换为字符串

我需要发送一个XML文件作为电子邮件的正文。我想将XML转换成一个简单的字符串，将其放入正文中，然后发送电子邮件。我记得我以前在C#中是这样做的，将文件以明文形式加载到RichTextBox中

my $xmlfilename;
my $myxml;
# XML TO STRING?
my $email = Email::Simple->create(
header => [
To      => '"AB <a@b.it"',
From    => '"CD" <c@d.it>',
Subject => "TEST",
],
body => $myxml,
);
sendmail($email);

my$xmlfilename；
我的$myxml；
#XML到字符串？
my$email=电子邮件：：简单->创建(
标题=>[
To=>'“AB
my$xmlfilename；
我的$myxml；
打开（文件“>”、“$xmlfilename”）或死“$！”；
而（）{
$myxml=“$myxml”。$\ux”；
}
关闭（文件）；
my$email=电子邮件：：简单->创建（
页眉=>[
To=>'“AB模块
我的$xmlfilename；
我的$myxml；
打开（文件“>”、“$xmlfilename”）或死“$！”；
而（）{
$myxml=“$myxml”。$\ux”；
}
关闭（文件）；
my$email=电子邮件：：简单->创建（
页眉=>[
To=>'“AB module
如果从文件中读取XML数据，那么它将是一个“简单字符串”。我不确定混淆的地方是什么

my $xmlfilename;

open my $fh, $xmlfilename or die "Can't open $xmlfilename: $!";

my $myxml = do { local $/; <$fh>; };

my $email = Email::Simple->create(
    header => [
        To      => '"AB <a@b.it"',
        From    => '"CD" <c@d.it>',
        Subject => "TEST",
    ],
    body => $myxml,
);

sendmail($email);

my$xmlfilename；
打开我的$fh、$xmlfilename或“无法打开$xmlfilename:$！”；
my$myxml=do{local$/；；}；
my$email=电子邮件：：简单->创建(
标题=>[
To=>'“AB如果从文件中读取XML数据，那么它将是一个“简单字符串”。我不确定是什么混淆

my $xmlfilename;

open my $fh, $xmlfilename or die "Can't open $xmlfilename: $!";

my $myxml = do { local $/; <$fh>; };

my $email = Email::Simple->create(
    header => [
        To      => '"AB <a@b.it"',
        From    => '"CD" <c@d.it>',
        Subject => "TEST",
    ],
    body => $myxml,
);

sendmail($email);

my$xmlfilename；
打开我的$fh、$xmlfilename或“无法打开$xmlfilename:$！”；
my$myxml=do{local$/；；}；
my$email=电子邮件：：简单->创建(
标题=>[
To=>“”AB