my $cookie = $q->cookie(
   -name    => "cart_id",
   -value   => 12345,
   -domain  => ".oreilly.com",
   -expires => "+1y",
   -path    => "/cgi",
   -secure  => 1
);
print "Set-Cookie: $cookie\n";