$form = HTML::Form->parse($html, $base_uri);
$form->value(query => "Perl");