%form = %{$query->Vars};

# perl -MCGI=Vars -e" %a=Vars();print for keys %a " a=b c=d
# perl -MCGI=Vars -e' %a=Vars();print for keys %a ' a=b c=d

##</code><code>##

if ($webmaster eq "") {

##</code><code>##

### Make sure things are being completed, die slackers!
my %youMustProvide = (

message => "Only a severe slacker would try to submit a form without leaving a message!\n",

usermail => "Ok, buddy, how do you expect me to email you back if you FORGET to leave yoru email address?!?\n",

username => "Please click back and type in your name so I can spy on you!\n",
);

for my $key(keys %youMustProvide ) {
# unless the parameter is present, and has a true value
    unless(exists $form{$key} and $form{$key} ) {
# notify the user of his *forgetfulness*
        print $youMustProvide{$key};
# and do whatever else you need to in such an instance
    }
}