#!/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);