perl get 发送json数据

##发送消息
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");
  my $cookie_jar = HTTP::Cookies->new(
     file=>'lwp_cookies.txt',
     autosave=>1,
     ignore_discard=>1);
     $ua->cookie_jar($cookie_jar);  
   my     $login_url ="http://10.10.17.2:9200/megacorp/employee/_search";  
   my $post = {  
     "query" => {
        "match" => {
            "last_name" => "Fir"	   
    }
	}};  
    use JSON qw(encode_json);  
    $json_string = encode_json($post);  
  
    my $req = HTTP::Request->new(  
        'GET' => $login_url
    );  
    $req->referer("https://wx.qq.com/?&lang=zh_CN");  
    $req->content_type('application/json; charset=UTF-8')  
      ;    #post请求,如果有发送参数，必须要有这句  
    $req->content("$json_string");    #发送post的参数  
    my $res = $ua->request($req);  
    print $res->content();            #获取的是响应正文  

D:elasticsearch api>perl get_dsl_01.pl
{"took":2,"timed_out":false,"_shards":{"total":5,"successful":5,"failed":0},"hit
s":{"total":1,"max_score":0.30685282,"hits":[{"_index":"megacorp","_type":"emplo
yee","_id":"3","_score":0.30685282,"_source":{
    "first_name" :  "Douglas",
    "last_name" :   "Fir",
    "age" :         35,
    "about":        "I like to build cabinets",
    "interests":  [ "forestry" ]
}
}]}}
D:elasticsearch api>