#!/usr/bin/perl

use CGI::Carp qw(fatalsToBrowser);
use strict;
use CGI::Cookie;

my $c = CGI::Cookie->new(-name    =>  'mycookie',
                          -value   =>  ['foo','bar'],
						  -secure => 1,
						  -HttpOnly => 1,
                          -expires =>  '+3M');
  
  
print "Set-Cookie: $c\n";
print "Content-Type: text/html\n\n";