$url = "https://www.example.com/reports/newIssues/changeParams2.jsp"; $error {newoff_entry} {url} = $url; $req = HTTP::Request->new(POST => $url); $req->content_type('application/x-www-form-urlencoded'); $cjar->add_cookie_header($req); $req->header(userid => $user); $req->content("userid=$user&SessionId=$sessid&language=en"); $ua->{'timeout'} = $timeout; $t0 = new Benchmark; $resp = $ua->send_request($req); $t1 = new Benchmark; $error {newoff_entry} {rt} = timediff($t1, $t0); $cjar->extract_cookies($resp); #$debug = $resp->as_string(); if (($resp->as_string() =~ /RR\s+codes/i)||($resp->as_string() =~ /$ssl_bug/)){ $error {newoff_entry} {rc} = 'ok'; }else{ $error {newoff_entry} {rc} = 'error'; }