Select Code to Download

Select or download this

my %textvals = (
    name  => '',
...
    size => 50,
    ...
);

Select or download this

my %areavals = (
    name  => '',
...
    mutiple => 1,
    ...
);

Select or download this

my %name = (
   name => 'name',
   fieldtype => 'textfield',
}

Select or download this

my %subject = (
    name => 'email',
...
    fieldtype => 'popup',
    optvals => [qw/option1 option2 option3 option4/],
);

Select or download this

my $page = CGI->new();
my $tb = 0;
foreach $field (@formfields) {
    my $vals;
    $vals = \%textvals  if ($field->fieldtype eq 'textfield') ;

Select or download this

    $vals = \%areavals  if ($field->fieldtype eq 'textarea') ;
    $vals = \%popupvals if ($field->fieldtype eq 'popup');
...
    ....
    $page->textfield($vals)  if ($field->fieldtype eq 'textfield') ;
    $page->textarea($vals)   if ($field->fieldtype eq 'textarea') ;

Select or download this

    $page->popup_menu($vals) if ($field->fieldtype eq 'popup') ;
    ... etc ... for each field type that might exist in the form.
}