#!C:\perl\bin\perl.exe
use CGI;
my $cgi = CGI->new;
my @cookieOut;
push @cookieOut, ($cgi->cookie( -name    => 'id',
                                -value   => "something",
                                -expires => '+7d',
                                -path    => '/'));

print $cgi->redirect( -cookie   => \@cookieOut,
                      -location => 'productCategory.cgi' );

##</code><code>##

HTTP/0.9 200 OK
Client-Date: Fri, 22 Dec 2000 21:02:08 GMT
Client-Peer: 192.168.1.65:80

Status: 302 Moved
Set-Cookie: id=something; path=/; expires=Fri, 29-Dec-2000 21:59:38 GMT
Date: Fri, 22 Dec 2000 21:59:38 GMT
Location: productCategory.cgi