use warnings; use strict; use LWP::UserAgent; my $ua = LWP::UserAgent->new; my $url = "https://host/WebService/webservice.php"; # set custom HTTP request header fields my $req = HTTP::Request->new(POST => $url); $req->header('content-type' => 'application/json'); $req->header('x-auth-token' => 'kfksj48sdfj4jd9d'); # add POST data to HTTP request body my $post_data = '{"List": {"Data" : [ {"value" : "SRYSR656", "value2" : "STYDTY ","date" : "140810","time" : "2132" },{ "value" : "001695568GP,"value2" : "EEFGE54","date" : "140812","time" : "1205"},{ "value" : "YYHG","value2" :"JKTYRT6F","date" : "140811","time" : "1302" }, {"value" : "ERETUT","value2" : "DYTUYU","date":"140812","time" : "1102" },{"value" : "SRT4543","value2" : "DASDRGF","date" : "140811","time" : "2245"} ] }}'; $req->content($post_data); print $req->as_string; my $resp = $ua->request($req); if ($resp->is_success) { my $message = $resp->decoded_content; print "Received reply: $message\n"; } else { print "HTTP POST error code: ", $resp->code, "\n"; print "HTTP POST error message: ", $resp->message, "\n"; }