#!/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);