use CGI::Cookie;
my $c = new CGI::Cookie(
  -name    =>  'COOKIENAME',
  -value   =>  'Whosyerdaddy',
  -expires =>  '+1M',
  -domain  =>  '.domain.com'
);
print "Set-Cookie: $c\n";

##</code><code>##

my %temp = parse CGI::Cookie($ENV{HTTP_COOKIE});
my %cookies;
foreach (keys %temp) {
	$cookies{$_} = shift @{$temp{$_}{value}};
}

##</code><code>##

print header();
my $debug = 1;
# READ COOKIE CODE
if ($debug) {
  foreach (keys %cookies) {
    print "$_: $cookies{$_}<BR>\n";
  }
}