尝试使用perl以弹性方式索引文档

Question

我是perl的新手，我正在尝试使用perl脚本对弹性文档进行索引。我收到错误“400 URL必须是绝对的”。以下是我的代码：

#!/usr/bin/perl
use LWP::UserAgent;
$ua=LWP::UserAgent->new;
$var="test";

$url="\"http://localhost:9200/test_index/_doc/${var}\" -H \'Content-Type: 
application/json\' -d\' { \"doc\":{\"name\" : \"Jane\"}}\'";

$response = $ua->put($url);

print $response->content();