perl和curl 模拟post 发送json数据

curl 发送post 请求：
node2:/etc/httpd/conf#curl -i -X POST -H 'Content-Type:application/json' -d '{"jsonrpc":"2.0","method":"apiinfo.version","params":{},"id":1}' http://192.168.137.3/zabbix/api_jsonrpc.php
HTTP/1.1 200 OK
Date: Sun, 12 Mar 2017 18:55:20 GMT
Server: Apache/2.2.15 (CentOS)
X-Powered-By: PHP/5.3.3
Content-Length: 41
Connection: close
Content-Type: application/json

{"jsonrpc":"2.0","result":"2.2.2","id":1}node2:/etc/httpd/conf#



　-i/--include 输出时包括protocol头信息


  -X/--request <command>指定什么命令
  
  -H/--header <line>自定义头信息传递给服务器
  
  -d/--data <data>   HTTP POST方式传送数据
  
    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;