#!/usr/bin/perl -w

use strict;
use diagnostics;
use CGI qw/:standard/;
use CGI::Cookie;
# Create new cookies and send them
my $cookie1 = new CGI::Cookie(-name=>'ID',-value=>123456);
my $cookie2 = new CGI::Cookie(-name=>'preferences',
                            -value=>{ font => 'Helvetica',
                                      size => 12 }
                           );
print header(-cookie=>[$cookie1,$cookie2]);
print start_html;
# fetch existing cookies
my %cookies = fetch CGI::Cookie;
my $id = $cookies{'ID'}->value;
print $id;
print end_html;