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

##</code><code>##

<form method="post" action=<!-- TMPL_VAR NAME=action --> enctype="application/x-www-form-urlencoded">
    <center>
        <table>
            <tr>
                <td valign="top">Pay by </td>
                <td valign="top">
                    <input type="radio" name="searchby" value="Parcel" checked="checked" />Parcel
                    <input type="radio" name="searchby" value="Name" />Name
                    <input type="radio" name="searchby" value="Address" />Address
                </td>
            </tr>
            <tr>
                <td>Enter Search Value</td>
                <td><input type="text" name="searchkey" value=<!-- TMPL_VAR NAME=DEFAULT --> maxlength="255" length="50" /></td>
            </tr>
        </table>
        <input type="submit" name="action" value="Search" />
        <input type="submit" name="action" value="Verify" />
        <input type="submit" name=".defaults" value="Defaults" />
    </center>
    <input type="hidden" name=".cgifields" value="searchby" />
</form>

##</code><code>##

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

##</code><code>##

<form method="post" action=<!-- TMPL_VAR NAME=action --> enctype="application/x-www-form-urlencoded">
    <center>
        <table>
            <tr>
                <td valign="top">Pay by </td>
                <td valign="top">
                    <input type="radio" name="searchby" value="Parcel" <!-- TMPL_IF NAME=PARCEL -->checked="checked"<!-- /TMPL_IF --> />Parcel
                    <input type="radio" name="searchby" value="Name" <!-- TMPL_IF NAME=NAME -->checked="checked"<!-- /TMPL_IF --> />Name
                    <input type="radio" name="searchby" value="Address" <!-- TMPL_IF NAME=ADDRESS -->checked="checked"<!-- /TMPL_IF --> />Address
                </td>
            </tr>
            <tr>
                <td>Enter Search Value</td>
                <td><input type="text" name="searchkey" value=<!-- TMPL_VAR NAME=DEFAULT --> maxlength="255" length="50" /></td>
            </tr>
        </table>
        <input type="submit" name="action" value="Search" />
        <input type="submit" name="action" value="Verify" />
        <input type="submit" name=".defaults" value="Defaults" />
    </center>
    <input type="hidden" name=".cgifields" value="searchby" />
</form>

##</code><code>##

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

##</code><code>##

$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);