my $expires = "Wed, 09-Nov-2002 00:00:00 GMT";
my $path = "/";
my $domain = "\."."$ENV{'SERVER_NAME'}";

print "Content-type:text/html\n";
print "Set-Cookie: myName=Azuba;";
if ($expires) {print " expires=$expires;";}
if ($path) {print " path=$path;";}
if ($domain) {print " domain=$domain;";}
if ($secure) {print " secure";}
print "\n\n";