my $q = CGI->new;
my $fif = HTML::FillInForm->new;
my $output = $fif->fill(file => 'htmlfile.html', fobject => $q);
print $output;