sub test_submit {
  my ($html_content, $click, %values) = @_;
  my $base_url = 'http://test.com/';
  ok(my @form_list = HTML::Form->parse($html_content,
                                       $base_url));
  my $form = $form_list[0];
  for (keys %values) {
    $form->value($_, $values{$_});
  }
  my $request = $form->click($click);
  my $rcontent = $request->content;

  ######### BEGIN parse POST DATA #########
  use CGI qw(:cgi-std);
  my $q = CGI->new($rcontent);
  my $data = [$q->Vars()];
  ######### END parse POST DATA #########
  use Data::Dumper;
  warn Dumper($data);
}