#!/usr/bin/perl -w

BEGIN {
     use CGI::Carp qw(carpout);
     open(\*MYLOG, '>>', "sessions.log") or
      die("Unable to open perl.log: $!\n\n");
	carpout(MYLOG);
  }

use CGI;
use CGI::Session;
use strict;

my $q = new CGI;
print $q->header( "text/html" );

my %valueHash;
GrabParams();	

my $session = new CGI::Session(undef, undef, {Directory=>'tmp/sessions'}) or die CGI::Session->errstr;

my %newHash =  $session->param('valueHash');

%newHash .= \%valueHash;

foreach(%newHash){
	print $_."<br>";
}

$session->param('valueHash', \%valueHash);


sub GrabParams{
	my ( $paramName, $paramValue);
	foreach $paramName ($q->param) {
		foreach $paramValue ($q->param( $paramName )) {
			 $valueHash{ $paramName } =  pack 'U0A*', $paramValue;
		}				
	}	
}