my $cgi = CGI->new;
my $params = $cgi->Vars;

print $cgi->textfield(-name=>'field_name',
                          -default=>$params->{field_name},
                          -size=>50,
                          -maxlength=>80);