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

##</code><code>##

print "Set-Cookie: cart_id=12345; domain=".oreilly.com"; path=/cgi; expires=+1d; secure\n";