如何使用Net :: HTTP :: Post将XML发布到RESTFUL Web服务？

cpan install Net::HTTP
cpan install XML::Simple

use strict;
use warnings;
use Net::HTTP;
use XML::Simple;

# 创建XML数据
my $xml_data = XML::Simple->new()->XMLout({
    'root' => {
        'element1' => 'value1',
        'element2' => 'value2',
        'element3' => 'value3'
    }
});

# 设置HTTP请求参数
my $url = 'https://example.com/restful_web_service';
my $req = HTTP::Request->new(POST => $url);
$req->header('Content-Type' => 'application/xml');
$req->content($xml_data);

# 发送HTTP请求
my $ua = LWP::UserAgent->new();
my $response = $ua->request($req);

# 检查响应状态
if ($response->is_success) {
    print "XML数据已成功发送到RESTful Web服务\n";
} else {
    print "请求失败: " . $response->status_line . "\n";
}