use strict; use CGI qw(:standard); $CGI::POST_MAX = 1047576; sub init { my $results; foreach my $param (param()) { $results{$param} = [param($result)]; } return $result; }