use HTML::Form;
   $v="http://search.cpan.org";
   $uv="";
$form = HTML::Form->parse($uv, $v);
if (defined($form)) {print $form->dump;}else
      {print "form is undefined\n";}
exit 0;