#!/usr/bin/perl

use CGI qw(:standard);
use CGI::Session;

 my $tmp_directory = '/tmp';
 my $session_id = CGI->cookie("CGISESSID") || CGI->param('CGISESSID') || undef;
 if (not $session_id){
   my $first_session = new CGI::Session(undef, undef, {Directory=>$tmp_directory});
   print "first session = $first_session\n";## VALID SESSION
   $session_id =  $first_session->id;
 }
  my $second_session = new CGI::Session(undef, $session_id, {Directory => $tmp_directory});
  print "second session = $second_session\n"; ## NOTHING!