Perl SOAP::LITE -如何添加http请求头

use SOAP::Lite;

# 创建SOAP客户端
my $client = SOAP::Lite->new(
    proxy => 'http://example.com/soap-server',
);

# 设置HTTP请求头
$client->transport->http_request->headers->header('User-Agent' => 'My User Agent');
$client->transport->http_request->headers->header('X-Custom-Header' => 'Custom Value');

# 调用Web服务方法
my $response = $client->some_method();

# 处理响应
if ($response->fault) {
    print "Error: " . $response->faultstring . "\n";
} else {
    print "Response: " . $response->result . "\n";
}