#!/usr/local/bin/perl -l -w

use strict;
use CGI;

my @zips = qw(
    92714
    92715
    92716
);

my %zips;
@zips{@zips} = ();

my $q = CGI->new;

print $q->header;
print $q->start_html;

if (my $zip = $q->param('zip')) {
 print "<br>You entered $zip";
 my $valid = (exists $zips{$zip}) ? 'valid' : 'invalid';
 print "<br>It is $valid";
} else {
 print $q->start_form;
 print $q->textfield(-name=>"zip");
 print $q->submit("Go");
 print $q->end_form;
}

print $q->end_html;