#### #!/usr/bin/perl -wT use strict; use CGI qw/:standard/ my @colors = param( 'color' );