$session = CGI::Session->load() or die CGI::Session->errstr;
$input = $session->load_param();  # $input is my existing cgi object
my %hash = map { $_, $input->param($_) } $input->param();