##

#!/usr/bin/perl
use strict;
use CGI qw/:standard :html4/;
use CGI::Carp qw ( fatalsToBrowser );  

my $query = new CGI; 
print $query->header();

&logit($0." has started" );
&logit("=======================");
&logit($0." ".query_string());


my @values = $query->param('field');
my $ColorCount=@values;

print "Colors Selected: ".$ColorCount."
";

foreach my $item (@values)
{
  print "Colors: ".$item."
";

}

exit;

##

##

Colors Selected: 4
Colors: Red
Colors: Blue
Colors: Green
Colors: Yellow