HTTP/1.1 200 OK
Connection: close
Date: Mon, 11 Jul 2005 21:24:55 GMT
Server: Microsoft-IIS/6.0
X-Powered-By: ASP.NET
X-AspNet-Version: 1.1.4322
Transfer-Encoding: chunked
Set-Cookie: ASP.NET_SessionId=2yacfaf5i2ga23bv22qmls45; path=/
Cache-Control: private
Content-Type: text/xml

102
<?xml version="1.0" encoding="utf-8"?>
<FloodStatus XMLRevision="1.45">
  <StatusID>S1</StatusID>
  <StatusMessage>Cert Received</StatusMessage>
  <CertificateNumber>19861752</CertificateNumber>
  <ControlNumber>695428</ControlNumber>
</FloodStatus>

##</code><code>##

  # creation of the xml doc snipped

  # create the user agent
  $agent = new LWP::UserAgent or die "Unable to create HTTP Agent";
  $agent->agent($AGENT);

  # if encoding is set -- client in this case wants no encoding
  if ($encode eq "T") {
    $response = $agent->request(POST $url,[xml=>$xml],content_type=>'application/x-www-form-urlencoded');
  } else {
    # create a request
    $request = new HTTP::Request POST=>$url;
    $request->content_type('text/xml');
    $request->content($xml);

    # send
    $response = $agent->request($request);
  }

  if ($response->is_success) {
    print $gl_logout "$certno: send to $url successful\n";
    undef $agent;
    return 0;
  }
  print $gl_logout "$certno: send to $url failed\n";
  print $gl_logout "$certno: Remote said: ",$response->status_line,"\n";
  undef $agent;
  return 1;
}