#test1.pl

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Session qw/-ip-match/;

# instantiate a new CGI object
my $cgi = new CGI;

my $session = new CGI::Session();
my $sessionid = $session->id();

$cgi->param("myname", "max payne");

#save param into session
$session->save_param($cgi);

print "after saving, it's actually : ";
print $session->param("myname");

print $cgi->redirect( -URL     => 'test2.pl?sessionid='.$sessionid);