print "HTTP/1.0 200 OK\n";
print "Content-Type: text/html\n\n";

use warnings;
use CGI;
use HTML::FillInForm;

my $q = new CGI;
my $fif = new HTML::FillInForm;

#name of the form to populate
#(in the same directory for testing purposes)
my $html = "name1.htm";

#Fill in the necessary parameters...
$q->param("name" , "Ted Burns");

my $output = $fif->fill(scalarref => \$html, fobject=>$q);

#print the form with values in the fields
print $output;

####### END