Code:
  my $ua  = LWP::UserAgent->new;
  my $res = $ua->request(POST 'http://myserver.com/LLS/GenPublishMessage',
                         Content_Type => 'multipart/form-data',
                         [xmlmsg => $xmlmsg]);

Response:
HTTP/1.1 302 (Found) redirecting for authentication purposes
Connection: close
Date: Wed, 31 Jul 2002 21:23:53 GMT
Location: http://myserver.com/securecontrol/ct_logon_int_qa.html?ct_orig_uri=%2FLLS%2FGenPublishMessage
Server: Netscape-Enterprise/4.1
Client-Date: Wed, 31 Jul 2002 21:23:53 GMT
Client-Response-Num: 1
P3P: CP="NON CURa ADMa DEVa TAIa IVAa OUR DELa SAMa LEG UNI PRE"