#!/bin/perl

use CGI qw/:standard/;
use CGI::Cookie;
use strict;

my @cookie;
#  do this in a loop....
$cookie[0] = new CGI::Cookie(-name=>'ID',-value=>123456);
$cookie[1] = new CGI::Cookie(-name=>'preferences',
             -value=>{ font => 'Helvetica', size => '12' });

print header(-cookie=>\@cookie);


##</code><code>##


Set-Cookie: ID=123456
Set-Cookie: preferences=size&12&font&Helvetica
Date: Mon, 02 Apr 2001 17:42:01 GMT
Content-Type: text/html