bold results from the CPAN

CGI-Ex
        #debug $content;

        ### print it out
        $cgix->print_content_type();
        print $content;
        return;
    }

    debug $form;

    ### show some sort of success if there were no errors
    $cgix->print_content_type;
    my $content = $cgix->swap_template(get_content_success(), defaults_hash());
    print $content;
    return;

}

###----------------------------------------------------------------###

sub validation_hash {
    return {
        'group order' => ['username', 'password', 'password_verify'],
        username => {
            required => 1,
            min_len  => 3,
            max_len  => 30,
            match    => 'm/^\w+$/',
            # could probably all be done with match => 'm/^\w{3,30}$/'
        },
        password => {
            required => 1,
            max_len  => 20,
        },
        password_verify => {
            validate_if => 'password',
            equals      => 'password',
        },
    };
}

sub defaults_hash {
    return {
        title       => 'My Application',
        script_name => $ENV{'SCRIPT_NAME'},
        color       => ['#ccccff', '#aaaaff'],
    }
}

###----------------------------------------------------------------###

sub get_content_form {
  return qq{
    <html>
    <head>
      <title>[% title %]</title>
      <style>
      .error {
        display: block;
        color: red;
        font-weight: bold;
      }
      </style>
    </head>
    <body>
    <h1 style='color:blue'>Please Enter information</h1>
    <span style='color:red'>[% error_header %]</span>
    <br>

    <form name="[% form_name %]" action="[% script_name %]" method="POST">
    <input type=hidden name=processing value=1>

    <table>
    <tr bgcolor=[% color.0 %]>
      <td>Username:</td>
      <td>
        <input type=text size=30 name=username>
        <span class=error id=username_error>[% username_error %]</span></td>
    </tr>
    <tr bgcolor=[% color.1 %]>
      <td>Password:</td>
      <td><input type=password size=20 name=password>
        <span class=error id=password_error>[% password_error %]</span></td>
    </tr>
    <tr bgcolor=[% color.0 %]>
      <td>Password Verify:</td>
      <td><input type=password size=20 name=password_verify>
        <span class=error id=password_verify_error>[% password_verify_error %]</span></td>
    </tr>
    <tr bgcolor=[% color.1 %]>
      <td colspan=2 align=right><input type=submit value=Submit></td>
    </tr>

    </table>

    </form>

    [% js_val %]
    </body>
    </html>
  };
}

sub get_content_success {
  return qq{
    <html>
    <head><title>[% title %]</title></head>
    <body>
    <h1 style='color:green'>Success</h1>
    <br>
    print "I can now continue on with the rest of my script!";
    </body>
    </html>
  };
}

__END__
( run in 2.559 seconds using v1.01-cache-2.11-cpan-39bf76dae61 )