use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->env_proxy;
$ua->agent("Mozilla/8.0");
my $host = "http://10.10.17.2:9200/website/blog/2";
my $response = $ua->head($host);
$ua->default_headers;
if ($response->is_success) {
print $response->decoded_content; # or whatever
}
else {
die $response->status_line;
}
#D:\elasticsearch api>perl head.pl
#404 Not Found at head.pl line 13.