Remove headers from Perl

use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
# set custom HTTP request header fields
my $req = HTTP::Request->new(POST => $server_endpoint);
$req->header('content-type' => 'application/json');
# add POST data to HTTP request body
$req->content($xjson);
my $resp = $ua->request($req);
if ($resp->is_success) {
    my $message = $resp->decoded_content;
    print  DATA "Received reply: $message\n";
}
else {
    print  DATA  "HTTP POST error code: ", $resp->code, "\n";
    print DATA  "HTTP POST error message: ", $resp->message, "\n";
}


close DATA;

#print  $xjson . "\n";

{"@timestamp":"2021-10-18T13:20:12.039Z","host":"11.22.33.44","message":"","headers":{"request_method":"GET","http_host":null,"http_version":"HTTP/1.0","http_accept":null,"http_user_agent":null,"request_path":"/bad-request"}}
{"GENCONDNAME":" Chat Event Duration ","GENMSGTEXT":" ","GENHOSTNAME":" blabla ","@timestamp":"2021-10-18T13:21:54.002Z","host":"11.22.33.44","headers":{"request_method":"POST","http_host":"12.22.33.44","content_length":"240","http_version":"HTTP/1.1","te":"deflate,gzip;q=0.3","connection":"TE, close","content_type":"application/json","http_accept":null,"http_user_agent":"libwww-perl/6.05","request_path":"/"},"GENCONDDESC":" Time spent processing was greater then limit ","GENCELEK":"SAS_CALLC","GENAPLIKACE":" ocs_contactsrv_p "}