Select Code to Download

my $form = new HTML::FillInForm;
my $page = $form->fill(scalarref => \$html,
                       fobject => $request);

<form method="post" action=<!-- TMPL_VAR NAME=action --> enctype="appl
+ication/x-www-form-urlencoded">
    <center>
...
    </center>
    <input type="hidden" name=".cgifields" value="searchby" />
</form>

$tmpl_form->param(
    ACTION  => "/path/to/my/script.cgi",
    DEFAULT => $request->param("searchkey"),
);

<form method="post" action=<!-- TMPL_VAR NAME=action --> enctype="appl
+ication/x-www-form-urlencoded">
    <center>
...
    </center>
    <input type="hidden" name=".cgifields" value="searchby" />
</form>

$tmpl_form->param(
    ACTION   => "/path/to/my/script.cgi",
...
    NAME     => $request->param("searchby") eq "Name"    ? "true" : ""
+,
    ADDRESS  => $request->param("searchby") eq "Address" ? "true" : ""
+,
);

$tmpl_form->param( ACTION  => "/path/to/my/script.cgi" );
my $html = $tmpl_form->output;
my $form = new HTML::FillInForm;
$html = $form->fill(scalarref => \$html,
                    fobject => $request);