#!/usr/bin/perl -w
use strict;
use CGI;
#using params in a file 'cause I don't have a webserver handy
open(INPUTFILE,"c:\\temp\\inputs.dat");
 my $cgi = new CGI(\*INPUTFILE);
close(INPUTFILE);

my @keywords = qw~man dog horse barker~;

foreach(@keywords) {
    
    if (!defined($cgi->param($_)) || $cgi->param($_) eq ' ' || $cgi->param($_) eq '' ) {
	print "Nothing there for $_!\n";
    }
}
#contents of the .dat file are
#man=horse 
#dog=man 
#horse=