PERL:

my $q = new CGI; 
my $fvalues = $q -> Vars;  #get all the value pairs from the submitted form

my $name = "Mr.". $q->param('name');  #alter one of them
$fvalues->{name} = $name;

my $template = HTML::Template->new( filename => "../form.tmpl");
my $html = $template->output;

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

print "Content-type: text/html\n\n";
print $page;

HTML:

<form action="./fill.pl" method="post">
   <input type="text" name="name" size="30" value="<tmpl_var name>" /><br />
   <input type="text" name="address" size="30" /><br />
			
   <select name="choices">
      <option value="">Select...</option>
      <option value="1">Ciara</option>
      <option value="2">Lauren</option>
      <option value="3">Brian</option>
   </select><br />
   <input type="submit">
</form>