Собсно, проблема в сабже. Делаю, так:
my $sid = $cgi->cookie('DRWSID') || $cgi->param('DRWSID') || undef;
my $session = CGI::Session->new('driver:file', $sid, {Directory=>'/tmp'});
my $cookie = $cgi->cookie(-name=>'DRWSID', -value=> $session->id);
print $cgi->header(-cookie=>$cookie);
Куку оно получает, в конструктор передаёт ($session->{'_CLAIMED_ID'} тот же, что и в куке), но тем не менее, сессия каждый раз создаётся с новым id.
Собсно, почему так, и как это лечится?
