#!/usr/bin/perl -w 
use strict;

my $query = CGI->new();
my $cookie = $query->cookie(-name=>'testCookie',
                            -values=>'foo',
                            -expires=>'+1h',
                            -domain=>'.perlmonks.org');
print $query->header(-cookie=>$cookie);