my $q = new CGI; 
$q -> param(-name => 'choices', -value => '2');
$q -> param(-name => 'address', -value => '123 Main Street');

my $template = HTML::Template->new( filename => "../form.tmpl");
my $html = $template->output;
my $form = new HTML::FillInForm;
my $page = $form->fill(scalarref => \$html,
                                     fobject => $q);

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

##</code><code>##

my $q = new CGI; 
my $info = [ { -name => 'address', -value => '123 Main' },
                    { -name => 'choices', -value => '2'} ];

my $template = HTML::Template->new( filename => "../form.tmpl");								
my $html = $template->output;
my $form = new HTML::FillInForm;
my $page = $form->fill(scalarref => \$html,
                                     fobject => $info);

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