use CGI ':cgi-lib';
$params  = Vars;
$address = $params->{address};
@foo     = split("\0",$params->{'foo'});

##</code><code>##

use CGI qw':standard';
my %params = map { $_ => [param($_)] } param;