my $ua  = LWP::UserAgent->new;
 my $req = HTTP::Request->new;

 $req->method('POST');
 $req->uri($servlet);
 $req->content_type('multipart/form-data');
 $req->content("xmlmsg=$xmlmsg");
 $req->authorization_basic($uid, $pass);

 # make the request to server
 my $res = $ua->request($req);
 print "\nREQUEST\n" . $req->as_string;
 print "\nRESPONSE\n" . $res->as_string;