# This works fine. Here I get the form.
$form=_get_new_form($self,$response->as_string,$response->base);
if($form==0)
{ return 0; }
# Here I am filling out the form.
foreach $input ($form->inputs)
{
   if($input->name eq "email")
   { $form->value($input->name,$email); }
   if($input->name eq "clientCertReq")
   { $form->value($input->name,$file); }
}

#Here is where the problem is.
$response=$agent->request($form->click("submit"));
if(!$response->is_success)
{  $ERROR=$response->error_as_html;
   return 0;
}

return 1;
}

sub _get_new_form
{
   my ($self,$html,$uri,$form)=@_;
   $form=HTML::Form->parse($html,$uri);
   if(!defined ($form))
   { return 0; }
   return $form;
}


}

##</code><code>##

POST http://server:8080/Foo/servlet
Content-Length: 332
Content-Type multipart/form-data; boundary=xYzZY
--xYzZY
Content-Disposition: form-data; name="email"

this_email@address.com
--xYzZY
Content-Disposition: form-data; name="clientCertReq"

/tmp/CERTS/new.cr.DER
--xYzZY
Content-Disposition: form-data; name="submit"

submit
--xYzZY--