my $is_a_chicken = $query->param('is_a_chicken');
unless (defined ($is_a_chicken) && length ($is_a_chicken))
{
     print "You must choose an option.<BR>\n";
}