Listing 21.6 is the complete script for SearchAd.pl.
Listing 21.6 Processing the Search Form with Script

#!/usr/local/bin/perl

&GetFormInput;

The intermediate variables below make your script more readable

but somewhat less efficient since they are not really necessary.

$Username = $field{'Username'} ;

$Password = $field{'Password'} ;

$Gender = $field{'Gender'} ;

$LAge = $field{'LAge'} ;

$UAge = $field{'UAge'} ;

$Hair = $field{'Hair'} ;

$Eyes = $field{'Eyes'} ;

$Smoke = $field{'Smoke'} ;

$Race = $field{'Race'} ;

$Phrase = $field{'Phrase'} ;

$message = "" ;

$found_err = "" ;

$errmsg = "

Field 'Username' must be filled in.

if ($Username eq "") {

$message = $message.$errmsg ;

$found_err = 1 ; }