print $cse->id;

##</code><code>##

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

my $session = CGI::Session->new();
$session->expire('5m');
$session->param( 'TestName', 'TestValue' );
my $sessionid = $session->id;
$ENV{REMOTE_ADDR} = '127.0.0.1';
$session->flush;

$session = CGI::Session->new($sessionid);
CGI::Session->import qw/-ip_match/;
$CGI::Session::IP_MATCH = 1;
print "IP_MATCH is turned on\n";

if (my $cse = CGI::Session->load($sessionid)) {
     print "Session loaded\n";
}
else {    
     die CGI::Session->errstr();
}
print $sessionid, "\n";
print $cse->id;

##</code><code>##

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

my $session = CGI::Session->new();
$session->expire('5m');
$session->param( 'TestName', 'TestValue' );
my $sessionid = $session->id;
$ENV{REMOTE_ADDR} = '127.0.0.1';
$session->flush;

$session = CGI::Session->new($sessionid);
CGI::Session->import qw/-ip_match/;
$CGI::Session::IP_MATCH = 1;
print "IP_MATCH is turned on\n";

my $cse = CGI::Session->load($sessionid);

if ($cse) {
     print "Session loaded\n";
}
else {    
     die CGI::Session->errstr();
}
print $sessionid, " - \n";
print $cse->id, " - \n";