#!/usr/bin/perl -wT
use strict;
$|++;
use CGI::FormBuilder;
# Disable the next line for production
use CGI::Carp qw/warningsToBrowser fatalsToBrowser/;

my @fields = qw/name email zipcode/;
my @req = @fields[0, 1];                         ### These are the required fields
my %val = ( name => 'NAME', email => 'EMAIL' );  ### Validate via pre-defined methods

my $form = CGI::FormBuilder->new(method     =>   'post',
                                 fields     =>   \@fields,
                                 required   =>   \@req,
                                 validate   =>   \%val,
);

if ($form->submitted) {
    my $field = $form->fields;
    # update_db($field->fields};  # This is where you'd update the database, etc.
    print $form->confirm(header => 1);
}
else {
    print $form->render(header => 1);
}