my $ua  = LWP::UserAgent->new;
 my $uri = "http://" . "$uid" . ":" . "$pass" . "@" . "myserver.com/LLS/GenPublishMessage";
 my $req = $ua->request(POST "$uri",
                        Content_Type => 'multipart/form-data',
                        Content => [ xmlmsg=>$xmlmsg ]);