curl perl python post发送json数据

curl -XPOST 'http://192.168.137.2:9200/library/books/1000' -d '{ "title":"Elasticsearch test", "name" :{ "first":"zhao", "last":"yangjian" }, "publish_date":"2017-11-29", "price":"1000" }' {"_index":"library","_type":"books","_id":"1000","_version":1,"_shards":{"total":2,"successful":1,"failed":0},"created":true 
[elk@node01 ~]$ perl 版本: ##发送消息 
use LWP::UserAgent; 
use LWP; 
use Encode; 
use LWP::Simple; 
use LWP::UserAgent; 
use HTTP::Cookies; 
use HTTP::Headers; 
use HTTP::Response; 
use Encode; 
use URI::Escape; 
use URI::URL; 
use JSON; 
use Data::Dumper; 
my $ua = LWP::UserAgent->new; 
$ua->agent("Mozilla/5.0 (Windows NT 6.1; rv:30.0) Gecko/20100101 Firefox/30.0");