Help for this page
my $cookie = $q->cookie( -name => "cart_id", -value => 12345, -domain => ".oreilly.com", ... -path => "/cgi", -secure => 1 ); print "Set-Cookie: $cookie\n";
print "Set-Cookie: cart_id=12345; domain=".oreilly.com"; path=/cgi; ex +pires=+1d; secure\n";