есть код$qs = $ENV{'QUERY_STRING'};
my @split = split (/&/, $qs);
foreach $split (@split) {
($query_key, $query_value) = split (/=/, $split);
$query_value =~ tr/+/ /;
$query_value =~ s/%([\dA-Fa-f][\dA-Fa-f])/ pack ("C", hex ($1))/eg;
$query{$query_key} = $query_value;
}обяснять не буду что это такое, вопрос в том как передать ассоциативный массив %query в модуль?
можно передать ссылку на хеш. (man perlref)