CGIでセッション管理を行うのは少々面倒くさいので、CGI::Sessionモジュールを使ってやる。 セッションを読み込むのは、CGIオブジェクトをCGI::Sessionに渡してやるだけ。 my $cgi = CGI->new; my $session = CGI::Session->new("dr:MySQL", $cgi, {Handle => $dbh}); もし、読み込めなければ、新しくセッションを作ることになる。 読み込まれた(または新しく作られた)セッションはcookieかformに保存してやる。 どちらに保存しても、CGIオブジェクトを渡せば取得できる。 鍵になる名前は決まっているけど、nameメソッドを使ってやったほうが確実。 $cgi->append( -name => 'new_cookie', -value => [ $cgi->cookie( -name