#!/usr/bin/perl -wT
use strict;
use CGI;

my $query  = CGI->new;
my $cookie = $query->cookie(-name    =>'sessionID',
                            -value   =>'xyzzy',
                            -expires =>'+1h',
                            -path    =>'/cgi-bin/database',
                            -domain  =>'.capricorn.org',
                            -secure  =>1);
print $query->header(-cookie=>$cookie);
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.

Yes, use CGI;. I did not, since I ripped that line out of my Mapster program, and edited it a bit.

Mapster doesn't use CGI; because the server is extremely loaded, and it doesn't use mod_perl or anything. I tested on my machine, and it took about a second to load Perl plus the CGI module, and Mapster doesn't actually need to do much decoding with the parameters, so I decided to leave it out.

It sounds like you are running it as a CGI program rather than mod_perl because you have the impression that this is more efficient.

I hope I am seriously misunderstanding you because the entire point of mod_perl is that it is a lot faster than raw CGI.

It will take you a week or three to get a good answer on an FAQ question, but in the interest is amity, I'll provide you with an example cookie header.

Don't put a slash at the end of the path, Lynx says it's incorrect, and it'll give you a headache if you NEED to correct all the cookies later.