local $ua, $key, %form, $response, $responseTxt; local %req; $ua = LWP::UserAgent->new; $ua->timeout(10); $ua->agent("my trigger"); local $usr="myUsr"; local $pwd="myPwd"; local $reqUri="http://myjira:8080/rest/api/2/issue/TSP-3"; local $data='{ "update": { "comment": [ {"add":{"body":"new comment via LWP rest"} } ] } }'; $req{'json'} = $data; my $response = $ua->post( $reqUri, \%req, Authorization => 'Basic ' . encode_base64($usr . ':' . $pwd),'Content-Type'=>'application/json'); if ($response->is_success) { $responseTxt=$response->decoded_content; print "\nResponse:\n$responseTxt\n"; } else { die $response->status_line; }