#!/usr/bin/perl -wT
  2
  3
  4 use strict;
  5 use CGI;
  6 use CGI::Carp qw(fatalsToBrowser);
  7 use CGI::FormBuilder;
  8
  9 my @fields = qw(name email password confirm_password zipcode);
 10
 11 my $form = CGI::FormBuilder->new(
 12   fields => \@fields,
 13   header => 1,
 14   validate => {
 15     name  => 'NAME',
 16     email => 'EMAIL', },
 17   method => 'post',
 18
 19 );
 20 if ($form->submitted && $form->validate) {
 21   # print confirmation screen
 22   print $form->confirm;
 23 } else {
 24   # print the form for them to fill out
 25   print $form->render;
 26 }