如何在Perl中使用REST API发布json文件？

use strict;
use warnings;
use HTTP::Request;
use LWP::UserAgent;

my $url = 'https://api.example.com/endpoint';  # 替换为你的API URL
my $json_data = '{"key": "value"}';  # 替换为你要发布的JSON数据

my $request = HTTP::Request->new('POST', $url);
$request->header('Content-Type' => 'application/json');
$request->content($json_data);

my $ua = LWP::UserAgent->new;
my $response = $ua->request($request);

if ($response->is_success) {
    print "JSON文件发布成功\n";
} else {
    print "JSON文件发布失败: " . $response->status_line . "\n";
}