#!/usr/bin/perl print "content-type: text/html \n\n"; use CGI; use CGI::Session qw/-ip-match/; use File::Spec; # my $session = new CGI::Session("driver:File", undef, {Directory=>File::Spec->tmpdir}); my $session = new CGI::Session(); my $sessionid = $session->id(); print ""; print " "; print ""; ##

##

#!/usr/bin/perl
print "content-type: text/html \n\n";

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

my $cgi = new CGI;

my $sessionid = $cgi->param("sessionid");

print "current session id ($sessionid)";

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

if(!$session->is_empty()){
	print "";
	print " ";
	print "

found session object from sessionid : " . $session->id();
	print "";
	print "";
	print "";
}else{
	print "";
	print " 

weird enough...session object is lost!";
	print "";
}