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

my $req = $form->click('EntrezSystem2.PEntrez.Pubmed.Pubmed_AdvancedSearch.Pubmed_AdvancedSearchBox.Search');
return $req;