use CGI::Session;

#initial trip to server
CGI::Session->name("SESSION_ID1");
my $session = new CGI::Session();
$session->param('user' => 'Fred');
print $session->header();

#subsequent trip
CGI::Session->name("SESSION_ID2");
my $session = new CGI::Session();
$session->param('user' => 'Barney');
print $session->header();

#later...
CGI::Session->name('SESSION_ID1');
my $session = new CGI::Session();
my $user_A = $session->param('user');

CGI::Session->name('SESSION_ID2');
my $session = new CGI::Session();
my $user_B = $session->param('user');

print "Content-type: text/html\n\n";
print $user_A."<br />";
print $user_B";

##</code><code>##

#first trip
$self->session_config(
    DEFAULT_EXPIRY      => '+8h',
    COOKIE_PARAMS       => { -name => 'SESSION_ID1',
                             -expires => '+8h',
                             -path    => '/',
                           },
    SEND_COOKIE         => 1,
 );
 
 $self->session->param('user' => 'Fred');

#later trip
$self->session_config(
    DEFAULT_EXPIRY      => '+8h',
    COOKIE_PARAMS       => { -name => 'SESSION_ID2',
                             -expires => '+8h',
                             -path    => '/',
                           },
    SEND_COOKIE         => 1,
 );
 
 $self->session->param('user' => 'Barney');


##</code><code>##

print $self->session->param('user');

##</code><code>##

CGI::Session->name('SESSION_ID1');
my $session = new CGI::Session();
my $user_A = $session->param('user');

CGI::Session->name('SESSION_ID2');
my $session = new CGI::Session();
my $user_B = $session->param('user');