script1.pl
   use CGI;
   use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
   use CGI::Session ( '-ip_match' );

   my $session = CGI::Session->new();
   $session->param("TestName", "TestValue");
   $session->flush();
   print $session->header(-location=>'test.pl');

script2.pl
  use CGI;
  use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
  use CGI::Session ( '-ip_match' );

  my $session = CGI::Session->load() or die CGI::Session->errstr();
  
  print $session->id . " - " . $session->param('TestName');