#!/usr/bin/perl
####################################

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



sub write_cookie
	{

	my $c = new CGI::Cookie(-name => 'foo',
					-value => ['bar','baz'],
					-expires => '+3M'
					);

	print header(-cookie=>[$c]);

	%cookies = fetch CGI::Cookie;
	$id = $cookies{'ID'}->value;

	%cookies = parse CGI::Cookie($ENV{COOKIE});

	}

1;