リベンジ

これでいけるかな？

★送り側★
use CGI;
use CGI::Session qw/-ip-match/;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = new CGI;
# CGI::Sessionnオブジェクトの生成
my $session = new CGI::Session(undef, $cgi, {Directory=>'./session'});
$session->param("user_id", "nitc");
$session->expire('+1m');

print $session->header(-charset=>'euc-jp');
print $session->id();


★受け側★
use CGI;
use CGI::Session;
use CGI::Carp qw(fatalsToBrowser);

my $cgi = new CGI;
# CGI::Sessionnオブジェクトの生成
my $session = CGI::Session->load(undef, $cgi, {Directory=>'./session'});

my $val=$session->param("user_id");

print $session->header(-charset=>'euc-jp');
print "$val,";
$session_id = $session->id();
print "$session_id, ";

if ($session->is_empty ) {
print "empty\n";
}
if ($session->is_expired ) {
print "expired\n";
}
if (!defined($val)) {
print "no session\n";
}