#!/usr/bin/perl -w

use strict;

use CGI;

CGI::param(-name => 'xxx', -value => [1,2,3]);

print join(',', CGI::param(-name => 'xxx'))."\n";

CGI::param(-name => 'xxx', -value => []);

print join(',', CGI::param(-name => 'xxx'))."\n";

##</code><code>##

1,2,3
1,2,3