Select Code to Download

#!/usr/local/bin/perl -wT
use strict;
...
    print "Name = $name, Value = " . param( $name ) . "<br>\n";
}
print end_html;

color=red&color=blue&color=some%20other%20value

foreach my $name ( @names ) {
    my @values = param( $name );
    print "Name = $name, Value(s) = " , join (',' @values) , "<br>\n";
}

# Assign param() to a scalar and you only get the first value
my $value  = param( $name );

# Assign param() to an array and you get all of the values
my @values = param( $name );