楽：地図さえあれば

use CGI qw/:standard/;
use CGI::Cookie;
# 新しいクッキーを作成し、それを送信します
$cookie1 = new CGI::Cookie(-name=>'ID',-value=>123456);
$cookie2 = new CGI::Cookie(-name=>'preferences',
-value=>{ font => Helvetica,
size => 12 }
);
print header(-cookie=>[$cookie1,$cookie2]);
# 既にあるクッキーを取り出します
%cookies = fetch CGI::Cookie;
$id = $cookies{'ID'}->value;
# 外部ソースから返されたクッキーを作成します
%cookies = parse CGI::Cookie($ENV{COOKIE});

CGI::Cookie - Netscape クッキーへのインターフェース

クッキーが簡単に使える。