use strict;
use warnings;
use CGI qw(:standard);
use CGI::Search qw(:validators);

my $TMPL_FILE    = '/path/to/template';
my $DB_FILE      = '/path/to/flat_file';
my $DB_SEPERATOR = '\|';

##</code><code>##

my @DB_FIELDS = (
    [ 'num1',   \&INTEGER,     1 ], 
    [ 'text1',  \&WORD,        0 ], 
    [ 'email',  \&EMAIL,       1 ], 
);

##</code><code>##

my %SEARCH  = (
	num1  => [ param("num1"),   \&INTEGER ], 
	email => [ param("email"),  \&EMAIL   ], 
);

##</code><code>##

my $RESULTS_PER_PAGE  = param('RESULTS_PER_PAGE') || 0;  # 0 means infinate
my $MAX_RESULTS       = 0;   # Also infinate
my $PAGE_NUMBER       = param('PAGE') || 0;  # Pagin numbering starts at 0

##</code><code>##

my $search  = CGI::Search->new(
    script_name      => $ENV{SCRIPT_NAME}, # Script location on web site--for paging
    template         => $TMPL_FILE,        # Path to HTML::Template file

    # Database options
    db_file          => $DB_FILE,          # Path to database file to search
    db_seperator     => $DB_SEPERATOR,     # Database field seperator
    db_fields        => \@DB_FIELDS,       # Referance to the database fields description

    # Paging options
    results_per_page => $RESULTS_PER_PAGE, 
    max_results      => $MAX_RESULTS, 
    page_number      => $PAGE_NUMBER, 

    search_fields    => \%SEARCH,          # Referance to search fields
);

##</code><code>##

my @data  = $search->result(1) or die "Error: " . $search->errstr;
my $tmpl  = $search->result(1) or die "Error: " . $search->errstr;

##</code><code>##

my %new_search = (
	num1  => [ param("num1"),        \&INTEGER ], 
	email => [ param("other_email"), \&EMAIL   ], 
);

my $new_tmpl = $search->result(1, \%new_search);

##</code><code>##

<TMPL_UNLESS NAME="error">
	<!-- This will show if there were no problems with the overall search -->
	<h1>Search Results</h1>

	<TMPL_UNLESS NAME="results">
		<!-- Shows up if there were no results -->
		<p>No results were found for your search.</p>
	</TMPL_UNLESS>

	<TMPL_LOOP NAME="results">
		<!-- Now we iterate through each of the results -->
		<TMPL_UNLESS NAME="error">
			<!-- 
				Shows up if there wasn't an error with a specifc 
				entry in the database 
			-->

			<!-- 
				Each of the field names lines up with a the name you 
				specified in the search description.  You only 
				need to have the fields here you wish to display to 
				the user.
			-->
			
			<p><TMPL_VAR NAME="num1"></p>
			<p><TMPL_VAR NAME="email"></p>
		<TMPL_ELSE>
			<!-- 
				Shows up if there was an error with a specific entry in 
				the database.  The template variable "error" holds a 
				specific error message.
			-->
			<p>Error in database: <TMPL_VAR NAME="error"></p>
		</TMPL_UNLESS>
	</TMPL_LOOP>

	<!-- For pagination feature, which isn't yet implemented -->
	<p>
	<TMPL_IF NAME="prev"> <!-- If there is a previous page -->
		<a href="<TMPL_VAR NAME="prev">">Previous</a> 
	</TMPL_IF
	<TMPL_IF NAME="next"> <!-- If there is a next page -->
		<a href="<TMPL_VAR NAME="next">">Next</a>
	</TMPL_IF>
	</p>
<TMPL_ELSE>
	<!-- Errors in the overall search (you couldn't open the database, for instance) -->
	<h1><TMPL_VAR NAME="error"></h1> <!-- a short error message -->
	<p><TMPL_VAR NAME="errstr"></p>  <!-- a more descriptive error message -->
</TMPL_UNLESS>

##</code><code>##

my $custom_validator = sub 
{
	if($_[0] =~ /\A(.*)/\z/) {
		return (1, $1, "Passed");
	}
	else {
		return (0, undef, "$_[0] is not valid");
	}
};

##</code><code>##

my @DB_FIELDS = (
	[ 'num1',    $custom_validator,  1 ], 
	[ 'email',   \&EMAIL,            0 ], 
	...
);