Про perl

Сессии в perl

Сессии Кусок кода первой страницы: my $cgi = CGI->new(); my $sid = $cgi->cookie("CGISESSID") || undef; my $session = new CGI::Session(undef, $sid, {Directory=>"/tmp"}); $session->expire("+15m"); $session->param("test", 1); my $cookie = $cgi->cookie(CGISESSID => $session->id); print $cgi->header( -cookie => $cookie); Создаю сессию, пользователь вводит данные в форму, эти данные сохраняются в сессии. Затем пользователь перенаправляется на ту же страницу, где эти данные проверяются, если все хорошо, то его направляют на другую страницу, где такой код: my $cgi = CGI->new(); my $sid = $cgi->cookie("CGISESSID") || undef; my $session = new CGI::Session(undef, $sid, {Directory=>"/tmp"}); my $test = $session->param("test"); if ($test) { ... } else { return ... } В итоге у меня создаётся 2 пустых сессии и одна с моими данными, и в итоге меня перенаправляет на самую первую страницу. Подскажите, как исправить. Спасибо

http://community.livejournal.com/ru_perl/236434.html

http://habett.com/perl/apasessen.html

http://www.wellho.net/solutions/perl-handling-cookies-through-cgi-pm.html

http://search.cpan.org/~markstos/CGI-Session-4.20/lib/CGI/Session/Tutorial.pm

Perl Design Patterns

http://perldesignpatterns.com/