my @forms = HTML::Form->parse($res);
@forms = grep{$_->attr('name') eq 'adv_search_form'} @forms;
my $form = shift @forms;

 my $req = $form->make_request;