#!/usr/bin/perl

use strict;
use warnings;
use CGI::FormBuilder;

my @fields = qw(name email password confirm_password zipcode);

my $form = CGI::FormBuilder->new(
    method   => 'post',
    fields   => \@fields,
    validate => {
        email => 'EMAIL',
        phone => 'PHONE',
    },
    required => 'ALL',
);

if ( $form->submitted ) {
    my $fname = $form->field('first_name');
    $fname    = $form->field('last_name');
    print $form->confirm( header => 1 );
}
else {
    print $form->render( header => 1 );
}
[download]