Help for this page
my @InvalidFields = grep {not defined CGI::param($_) or CGI::param($_) eq ''} CGI::param +();
if (@InvalidFields){ # You have some empty fields, so do something about them }