#!/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 "";
}else{
print "";
print "
weird enough...session object is lost!";
print "";
}